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NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 


TECHNICAL NOTE D-132 


A GENERAL METHOD FOR AUTOMATIC COMPUTATION OF EQUILIBRIUM COMPOSITIONS 
AND THEORETICAL ROCKET PERFORMANCE OF PROPELLANTS 
By Sanford Gordon, Frank J. Zeleznik, and Vearl N. Huff 


SUMMARY 

A general computer program for chemical equilibrium and rocket per- 
formance calculations was written for the IBM 650 computer with 2000 
words of drum storage, 60 words of high-speed core storage, indexing 
registers, and floating point attachments. The program is capable of 
carrying out combustion and isentropic expansion calculations on a chem- 
ical system that may include as many as 10 different chemical elements, 
30 reaction products, and 25 pressure ratios* In addition to the equi- 
librium composition, temperature, and pressure, the program calculates 
specific impulse, specific impulse in vacuum, characteristic velocity, 
thrust coefficient, area ratio, molecular weight, Mach number, specific 
heat, isentropic exponent, enthalpy, entropy, and. several thermodynamic 
first derivatives* 


INTRODUCTION 

Almost the entire work involved in the calculation of theoretical 
performance of propellants is in the determination of the equilibrium 
composition and temperature of the reaction products* The difficulty 
in determining equilibrium compositions,, especially where many reaction 
products are involved, is due to the fact that the necessary equations 
for their solution are not simultaneously linear; and hence, in general, 
a direct solution is not feasible. 

In recent years, a number of articles have appeared in the liter- 
ature dealing with equilibrium calculations for complex mixtures that 
describe various systematic iterative techniques for obtaining equilib- 
rium compositions (e*g*, refs. 1 to 22). With the increasing availa- 
bility of high-speed digital computers; a number of programs have been 
prepared to solve for equilibrium compositions automatically (e*g., refs. 
13, 16, and 19 to 22). 
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The present report presents a completely general method programmed 
for the IBM 650 data processing system with 20C0 words of drum storage, 

60 words of high-speed core storage, index registers, floating decimal- 
point attachment, and alphabet ic device. This program can handle any 
chemical system within certain limitations set by the storage capacity 
of the IBM 650. The program is based essentially on the method described 
in reference 9; however, some modifications have been made. The program 
was prepared during 1957 and has been in operation since January 1958. 


EQUATIONS DEFINING ADIABATIC COMBUSTION 
AND ISENTROPIC EXPANSION 

The computer program described In this report is primarily concerned 
with the calculation of theoretical rocket performance of chemical pro- 
pellants. This calculation is simple and straightforward once the tem- 
perature and composition of the reaction products are known at combus- 
tion and exit points in the nozzle. The temperature and composition fol- 
lowing a process such an adiabatic combustion at constant pressure or 
isentropic expansion to an assigned pressure can be determined from an 
appropriate combination of equations describing: the conservation of 
atomic species, chemical equilibrium, Dalton's law of partial pressures, 
and the conservation of enthalpy or entropy. Since these equations do 
not constitute a set of linear equations, they must usually be solved 
by some iterative technique. 


Combustion at Constant Pressure 


For given initial conditions, the temperature and composition fol- 
lowing a combustion process are to be found. The substances entering 
into the reaction may be represented by an equivalent formula 


Z a Y b X c 

a Q D o 0 


where a^, b Q , Cq, . . . are proportional to tie total number of gram 

atoms of the elements Z, Y, X, . . . in the reaction mixture. (A com- 
plete list of symbols is given in appendix A.) For example, 


N 2 H 4 + | h 2 0 2 


h 7 n 2 0. 


( 1 ) 


The reaction at equilibrium may be written as 


A(Z Y X c * ‘ 

^0 D o c 0 


£ MVvA,- • • •> 

1 111 


( 2 ) 


* 
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or 


Wo 


* a ^ n i^a^b^c^ • • •) 


( 3 ) 


where A is the number of formula weights of the equivalent reactant, 
and n-j^ is the number of moles of the i th molecule or atom. 


With this .representation of the reaction, the equations involving 
mass conservation, chemical equilibria, pressure, and enthalpy may be 
written as follows • 


Conservation of mass. - Equations defining the relative amounts of 
each element in the reaction products may be written as follows : 


a = a £ a i n i 
i 


b 


= A ? b i n i 


c = 


= A S c i n i 


(4) 


where a, b, c, . . .are the number of gram atoms of substance Z, Y, 

X, . . . per equivalent formula required to form the reaction products. 
For the reaction of equation (3), conservation of mass is defined by the 
following relations: 


a “ Sq 




b 


= b, 


'0 


c = 



( 5 ) 


Chemic al-- equilibrium equations » - For convenience in handling the 
equations, each reaction product can be considered as being formed from 
the gaseous atoms as follows: 


a ± Z + b_jY + c ± X + 


Z a. y bYc. 

iii 


( 6 ) 
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The change in free energy across reaction (6), (AP) ± , in terms of activ- 
ities a is given by the relation 

(AF) ± = (AF°) 1 + RT(ln ^ - a. In - t. In Oy - c. In . . •) ( 7 ) 

where (AF° ) ^ is the standard-state free-energy change across the 
reaction. 

For gaseous reaction products , the standard state , or the state of 
unit activity, is usually taken to be the ideal gas at 1-atmosphere 
pressure. This choice of standard state makes the actxvi y an e 
fugacity numerically equal. If, furthermore, all the gaseous reaction 
products are assumed to behave ideally, then the f^city and partial 
pressure are identical. In this case, dividing by RT and using the 
symbol 5 for AF/RT, equation (7) may be written as 

6jl = (ff) + m Pi - K In P Z + U ± In II + U m Px + • • • > (8) 

The criterion for equilibrium for a reaction at constant temperature 
and pressure is that AF (or b ± ) be equal to zero* that is, 

(9) 


( 0 ), 


+ in 


(a i In P Z + b ± In Py + c i - n Px + * * • ) “ 0 


In this report, a condensed phase is assumed to be a pure solid or 
liquid, excluding the possibility of solid or liquid solutions . The 
activity for a condensed phase is conventionally taken to be unity for 
the pure solid or liquid at 1-atmosphere pressure. At moderate pressures 
the activity of the condensed phase is essentially the same as in the 
standard state, and hence the equilibrium relation for the formation of 
the condensed product Za/b/c- * ' * from the S aseous atomS may be 

written as 


% 


/af°\ 

■ V RT h 


J a N b N c N 

( In p z + bjj In Py H c H In p x + . • • ) 


( 10 ) 


Similar expressions may be written for other condensed products, 
and so forth. At equilibrium conditions 5^,5^ 


z a. y b. ^ 

11 M 

are equal to zero ; that is , 

/AF° 


(~\ - (a^ In p z + b N In py + c N ..n px + . . •) 0 j 

\ Ki /H ( 


( 11 ) 
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D alton ' S lav of partial pressures . - The static pressure of the sys 
tem is the sum of the partial pressures of the gaseous products : 

P = D Pi (12) 

i 

If a process has an assigned pressure P Q , then 

P = P 0 (13) 

In this report, it is assumed that the gases at combustion condi- 
tions have zero velocity; and hence, in the combustion chamber, static 
pressure is ecpual to the total pressure. 

Conser vation of enthalpy . - Adiabatic combustion is a constant- 
enthalpy process; and hence, if chemical energy is included in the en- 
thalpy of each substance, the enthalpy of the products of reactions must 
equal the enthalpy of the reactants. 

Since only differences in enthalpy are involved, an arbitrary base 
may be adopted for assigning absolute values to the enthalpy of various 
substances. The molar enthalpy of a substance is defined as 


(H T } i = J Q Kh 4T + (Hg) ± (14) 

where (0°^ is the molar specific heat at constant pressure, and (Hq) . 
is the assigned reference enthalpy at 0° K of the i th substance. 

If the enthalpy of the reactants per formula weight of the equiv- 
alent formula Z Y h X. ... is H n , then 
% D 0 c 0 u 


H 0 - S n f . + D n x. (2$) (15) 

i - 1 i i 1 x i 

where n f ^ and are the moles of the i th fuel and i th oxidant cor- 

responding to equivalent formula Z_ Y h X_ . . . , and (h£) and 

VO 0 0 T f. 

(H^) are the molar enthalpies of the i th fuel and i th oxidant 
i 9 

respectively. 
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The enthalpy of the combustion products per equivalent formula of 
reactants may be written as 


H = |E(H§).n i (16) 

If the h 2 values for all substances are consistently assigned 
(taking into account heats of reaction and transition), then for adia- 
batic combustion, 

H = H 0 ( 1? ) 


Isentropic Expansion to Assigned Pressure 

The temperature and composition following an isentropic expansion 
of the combustion gases to an assigned pressure may be determined by 
equations for (l) conservation of atomic specLes, (2) chemical equi 
rium, (3) the law of partial pressures, and (4) the conservation of en- 
tropy. The first three types of equations ((d), (9), (H)> ,, 

have been discussed In the previous section and again apply. The fourth 
type is discussed herein. 

The entropy of the reaction products per formula weight of the 
equivalent reactant is given by 

S = i E tap), n (18 > 

i 


jhere 


(Mp _ 


! 


(Mi 
(Mi 


R In Pi for gases 

for condensed phases 


(19) 


and (S°) . is the absolute molar entropy of the 
ture T in the standard state. 


1 th product at tempera- 


For an isentropic expansion following a combustion process, the 


entropy at any point in the expansion S ( 
entropy at combustion conditions 
assigned value Sq, then 


V 


e 

If 


must be equal to the value of 
S . is considered to be an 


s e - s e - s 0 


( 20 ) 
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Summary of Equations for Adiabatic Combustion 
and Isentropic Expansion 

Equations (5), (9), (ll), and (13), together with equation (17) for 
adiabatic combustion or equation (20) for isentropic expansion, are suf- 
ficient to solve the problem of equilibrium calculations completely. 
However, these equations involve both the moles n^ and the partial 
pressures p ± . The equations can be expressed in the same variables by 

letting A be that number of formula weights of equivalent reactant 
such that, for ideal gases, 

Pi » n p (21) 

This is the same as saying that the reaction takes place in a volume V 
numerically equal to RT. Each condensed phase is considered to occupy 
a negligible volume with respect to the volume occupied by the gases, 
even when finely divided and suspended in the gas. Condensed phases are 
further discussed in the subsequent section on "Condensation phenomena." 


ITERATION TECHNIQUE 

The two sets of equations ((5), (9), (ll), (13), and (17), and (5), 
(9), (11), (13), and (20)) are sets of nonlinear equations, and therefore 
it is usually not feasible to find a direct solution. The Newton-Raphson 
method for solving nonlinear equations (ref. 23) is well suited to this 
"type calculation. In this method the finite-difference approximation 
to . the total differential serves as a basis for the iteration procedure. 
This method will be illustrated by a simple example. 

Let Qj_ and Q 2 be two nonlinear functions of x and y: 

Ql = Q 1 (x,y) = 0 

Q 2 = Q 2 (x,y) = 0 

and let their simultaneous solution be x,y. For any other values of x 
and y, say x 1 ,y ± , 

Q l( x i' y i) ^ %foy) 

Q 2 ( x i' y i) / <*2 fry) 

or 

AQ X = Q ] _(x,y) - Q 1 (x i ‘,y i ) 

AQ 2 = Q 2 (x,y) - Q 2 (x j .,y i ) 
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The total differentials of (22) are 


d ^i " ST dx + ST d;r 


( 25 ) 




np. _ A x _|_ 

dQ 2 - dx + 


C% 

' dy 

In finite -difference form, these "become 


dy 


*i - ©* * 

^2 - (1^ + (sT^ 


(26) 


If the difference terms and A} 2 and the analytic expressions 

for the partial derivatives are evaluated numerically at the point . x ±f y i} 

the correction variables Ax and Ay can be solved ^^fcorrec- 
equation (26) is a simultaneous linear set oi equations in the corr 

tion variables. 


Because equation (26) is not exact. 


Vi - x i + * * 

y 1+ i “ yj. + ^ t ' 


(27) 


hut rather x ±+1 and y i+1 will in general be a closer approximation 
— , — +han are x. and y . . The process of solving for cor- 

re ct ions' 1 Ax and Ay is repeated until Ax and Ay (or Aftq and £Q 2 ) 

are sufficiently small. 


Linear Correction Equations 


Equations. - The finite -difference form 
of equations (5) , (9), (ll), (13), (1?), 
correction variables is 


of the total differential 
(20) in terms of logarithmic 


E-417 
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A Aa = A(a Q - a) = £ a.n,. A In n ± - ^ a i n i A In A ^ 

A Ab = A(b Q - b) = 2 b.n. A In n. - £ b.n. A In A 

i 1 i 1 1 

> 

A Ac = A(c Q - c) = £ c.^ A In n ± - £ ^n. A In A 

i i 1 


5 i = A in p. - ( a;L A In p z + b i A In p Y + Cl A In + . . . ) A 
_8 N = "W A In p z + b^ A In p y + Cjf A In p }[ + . . . ) ~ % A In 


where 


AH, 


q = 


T 
RT 


AF? 

^RT 
d In T ~ ’ 


a - 


AP = (p Q - P) = £ P i A bi p. 
i 


A AH 


+ T N ( Cd' ) n. A In T 


~ A(H q - H) = ^ ^ (H^)^n^ A In n i - \ ^ ( Hi r). n i A 111 
i 1 ± 1 

E 

i 

A AS = A(S 0 - S) = ^ (S T )^n ± A In n ± - (St)^ A In A 

i ± 

+ ^ ^ ( c p) i n i A In T 


(28) 


In T 

(29) 

T 

(30) 


(31) 


(32) 


(33) 
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where 


( S T )^| 


/ = ( 3 °)^ - R(1 + In P ± ) = (S T ) i - R for gases 


(34) 


(sS). 


for condensed phases 


The values for Aa, Ah, Ac, . . ., (-^i) (“%)> • • • . AP, AH, and 

AS serve to indicate the error still left in the system of equations 
with the estimates n^, A, and T. 

Relation between and q r - For purposes of machine computa- 

tion,^ to write equations (e) and ( 10 ) in a 
different form. The relation 

^ v / » ^ n \ 

(35) 


AFrp 

.RT 



/AS°\ /AS§\ 

, - k 3 1 ' v^A 


is used to eliminate (AF^/RT)^ in equations &) and ( 10 ), which become 

- in p z j + \j(^) Y " ^ Py 


qU ' 

-Z) - In Pi 
R '■ 1 


R 


[ 

-30 

1 

+ a T( 

1 

cT 

II 

t 

+ \ 


Sm , 

#Jz ' 111 Pz 



■ (36) 


+ b 


(37) 


Matrix Representation of Correction Equations 

Matrix. - The augmented matrix for the combustion problem (eqs. 

(28) to (32)) is given in figure 1. The augmented matrix for the expan- 
sion problem is identical to that for combustion, except that equation 
(32) is replaced by equation (33), as indicated in the footnote in fig- 
ure 1. A direct elimination of the correction variables pertaining to 
the gaseous molecules gives a new matrix whose order is equal^Q ^ 
of the different chemical elements and condensed pha P * 

reduced matrix is presented as figure 2 , where the correction variables 
for the condensed phases are linear rather tnan logarithmic to permi 
greater symmetry in the coefficient matrix. 


l?d 
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In figure 2 and elsewhere in this report, the symbol p. is used 

sLh!T ati ° nS tha1 \ lnclude 0nly gaseous reaction products, whereas the 
symbol nj _ is used in summations that include condensed as well as 
gaseous reaction products. 

_ g° ndea satlon phenomena. - In this report, a molecular species which 
spe^s £ ™r d P ^ Se 1S fTT , C ° nSidered to be independentof the same 

to tH 7 P vapor pressure is assigned completely 

the gas phase, and a zero vapor pressure is assigned to the condensed 
phase. Two separate equilibrium equations (eqs. (8) and (lO)) are 

^ thlS Specles ' one for the gaseous phase and one for the con- 
ations Vap ° r - COndensed -P hase equilibrium is implicit in these two 

vhpn p r ese nt program is capable of considering several situations 
noss-liS chemical system is such that condensed reaction products are 
LeotS aS tha first situation, a condensed product is assumed to be 
present. After the equilibrium compositions have been determined the 
assumption is checked. If correct, the program continues; if incorrect 
(a negative value for the amount of the condensed product), the program 
automatically restarts the calculations with this condensed phase ex- 
cluded. In a second situation, a condensed phase is assumed to be not 
present. After equilibrium compositions have been determined, if the 
assumption is correct the program continues. If the assumption is in- 
correct the partial pressure of the condensable gas exceeds the vapor 

pressure J, the program automatically restarts the calculations with the 
condensed phase included. 


easiiy obtainea fr °" the eiuiiib - 
< VhS ' • • >g = ( \\S • • • K (38) 


where = V ^ = b„, e ± = e N 


the equilibrium constant is 


K a I a 1 = e 

-^vap 


(*■?) - (*?), 


p. > p 
i vap 



Condensation occurs when 
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or 


p.K > 1 


which can he written as 


<*■?>= 


- 


RT 


In Pj <0 


(40) 


thermodynamic first partial derivatives 

From the many thermodynamic first partial., derivatives, it is possi- 
ble arbitrarily to select three independent derivatives and then to x 
ess all the other possible thermodynamic first partial denva ves in 

terms of these three. The “a ^ 

calculation in this report are (dH/dT)p, (d 1x1 **1^ 111 

(d ±nJf/Z In P) T , Where J( is the molecular weight of the reaction 

products as defined in equation (45). 


Heat Capacity at Constant Pressure 


The enthalpy of the products of reaction per equivalent formula of 
reactant is given by (16). Since the heat capacity per equivalent for- 
mula of reactant is (dH/c>T) P , then the heat capacity of the reaction 
products per mole of reaction product is 



(41) 


where 


n = £ n i 
i 

Differentiation of equation (16) gives m expression for (Sh/ST) p 
that may he used to obtain C p m equation >4 
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Equation (42) may be written in another form that was found more 
convenient with the calculation method of this report. Differentiation 
of (9) gives the identity 



Combining equations (4l), (42), and (43) gives the following expression 



l 

+ T ^^(Cp)^n^ + (H^)^q^p^ 
i 


(44) 


A comparison of equation (44) with the last row in figure 2 shows 
that the coefficients of the derivatives are the elements of the enthalpy 
row. The solution of the partials (b In p z /d In T) p , (d In p y /d In T) p , 

- . is discussed in the section on "Derivative Matrices." 


Molecular -Weight Derivatives 


Each condensed phase is considered to occupy a negligible volume 
with respect to the volume occupied by the gases^ even when finely 
divided and suspended in the gas. An average molecular weight is then 
defined to be the weight of the reaction products divided by the number 
of moles of gaseous products: 


Jt = 



(45) 


where is the formula weight of the equivalent formula of equation 

(3). When only gaseous products are formed in the reaction, this defi- 
nition is identical to the usual definition of an average molecular 
weight. With the definition of equation (45), the molecular weight is 
suitable for use in the ideal gas law even when solids are present: 


or 



Pv = 


RT 

jr 


(46) 
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The density o or specific volume v in equation (46) is the average 
, d ^ nnnriensed phases. Taking logarithms 


of equation (45), 


In — In A + ln^. - li- P 

(47) 

Differentiation of equation (47) with respect .o ln T 
gives 

at constant P 

lb 1 njt\ _ (b In k\ 
ln T/ p \B In T/p 

(48) 

Differentiation of equation (47) with respect oO ln P 
gives 

at constant T 

(b ln^\ _ (S In A\ _ i 
ln pJ t \S In P/ip 

(49) 


Differentiation of equation (12) with respect to In A at constant T 
gives 


~ E Ay ~ pS Pi (< 


d In p^ 
In A /, 


T 


(50) 


T 


/ c) ln^\ _ 

_ — 
^ ^ 1 

\S In pJi 

111 p .\ 

^ In A /ip 


Differentiation of equation (9) gives 


S In p^ 
5 In aT 


= a 


(b In p z ^ _ ^ (% m Py \ 
'i\^ In A L “ iyT Ln A / T 


ftp /T 

Equations (5l) and (52) may be combined to gire 

Tb ln p z 


d Ln py^ 
.ST" Ln A 


In^\ _ 


In pjj 

ix>4i 


^ ln 


'T 


b i P i\S in A 


(51) 


(52) 


i\ + . . . 

a ; T 


- 1 


(53) 


Comparison of equation (53) and the pressure row in figure 2 Bho»s that 
the coefficients of the derivatives in equatnon (53) ore the elements 

the pressure row. 


U'h- 3 
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Other First Partial Derivatives (r and C^) 

Bridgman (ref. 24) presents a convenient scheme for expressing all 
first partial derivatives in terms of three first partial derivatives, 
one of which is the same as selected in this report, (SH/ST)p — Cp, and 

two of which are different, (Sv/ST)p and (Sv/SP)qi. In order to make 
use of the tables of reference 24, (Sv/ST) p and (Sv/SP) T can he ob- 
tained from the derivatives given in this report by means of the follow- 
ing equations, which have been derived from the equation of state for 
ideal gases with variable molecular weight (eq. (46)): 



With the aid of the tables in reference 24 and equations (46), (54), 
and (55), other first partial derivatives can be expressed in terms of 
Cp, (S ln./^S In T)p, and (S ln*^S In P)p. As examples, expressions 

are derived for the isentropic exponent X, which is used to calculate 
velocity of sound, and specific heat at constant volume C^. 

By definition. 


X = ( 5 In P \ a _ In P \ 

VS In p / VS In v/ 

s : 

From Bridgman T s tables (ref. 24)^ 


v 

P 




(56) 


(57) 


Substituting equations (46), (54), (55), and (57) into equation (56) 
yields 



( 58 ) 
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For nonreacting gases 
tion (58) reduces to 


("frozen" composition), 


T = 



is a constant, and equa- 

(59) 


By 


definition and from Bridgman's tables (ref. 24), 


c v l /3 e\ 

(3v 

IdF 

K 

+ tI 

f3v\ 2 
1555/ P 

ji = jmu " ( 

'bv\ 

Spj 

1 

T 


(60) 


Substituting equations (46), (54), and (55) into equation (60) 



gives 


(61) 


For nonreacting gases, Jl is constant, and equation (61) reduces to 




C£ - R 


(62) 


Derivative Matrice; 

The evaluation of the three independent 
derivatives is possible if the quantities (3 . 

(3 In Py/3 In T) P . • • (3n w /3 In T) P . . • (< 
(3 In p^/3 In A) t , (3 In p y /3 In A) t , ... a: 

may be calculated for equilibrium conditions 
simultaneous equations involving the precedin, 
equations for the temperature derivatives may 
(5), (9), (11), and (13). Differentiation of 
to In T at constant P gives 


Jaermodynamic first partial 
.n p^/d 

) In kjb In T)p and 
•e known. These quantities 

jy the solution of a set of 
5 derivatives. The necessary 
be obtained from equations 
these equations with respect 


a i p i U in t 


IP* ( 
( 


3 Jjc Pi 


: ) p + + • • • TM 


3 In A) 


3 In t)p 

i * + - 


>-(63) 


= 9 / 
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If equation (64) is used to eliminate (d In Pi/d In T)p from equa- 
tions (63) and (66), then the resulting augmented matrix is identical to 
the matrix of figure 2 with the last row and column deleted, as shown in 
figure 3. 


The derivatives with respect to In A at constant T are obtained 
in a similar fashion. Differentiation of equations (b), (9)> and (ll) 
yields : 




If equation (68) is used to eliminate (d In Pj_/d In A)>j from equation 

(67), then the resulting augmented matrix is identical to the matrix of 
figure 2 with the last two rows and columns deleted, as shown in figure 4. 
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ROCKET PERFORMANCE PARAMETERS 
Calculation 


The evaluation of rocket performance parameters for a propellant is 
simple once the temperature and composition are known at combustion and 
exit points of a nozzle. The following formulEi,s used in computing the x 
various performance parameters were derived from the one-dimensional forms 
of continuity, energy, and momentum equations End the following assump- 
tions : zero velocity in the combustion chamber, perfect gas law, com- 

plete combustion, homogeneous mixing, adiabatic combustion, and isentropic 
expansion. (The units used were h = cal/g, T = °K, P = lb force/sq in., 

A = sq in., w = lb mass/sec, and g c = 32.174 (lb mass/lb force) (ft/sec 2 ) . ) 

Specific impulse with ambient and exit pressures equal, 

(lb force) (sec)/lb mass: 

V h c - h 

~Tooo~ < 70 > 

Specific impulse in vacuum (ambient pressure zero), (lb force) (sec) /lb mass 


I 


vac 


I + 



Nozzle area per unit mass-flow rate, (sq in. ) (sec)/lb: 

A = 86.4554 T 
w “ PMI 

Characteristic velocity, ft/sec: 


A+ A-i- 

c * - «C P 0 — - 32.174 p c ■- 


Coefficient of thrust: 


Cp = 



32.174 A 
c* 


(71) 


(72) 


(73) 


(74) 


Mach number: 



a 


V 


i 

86.4554 rT 

Jl 


(75) 
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Effect of Chamber Pressure on Performance Parameters 

For a given pressure ratio P c /P, the logarithms of the performance 
parameters given in equations (70) to (74) are very nearly linear in the 
logarithm of the combustion-chamber pressure P c . Thus,, if any one of 


the performance parameters is denoted by 
approximation } 


then, to a good 


d ln A 1 
^ ln P c/P /p 


In Xg - ln Xp 
ln(P c j 2 - In (P c ). 


(76) 


or 


^2 

An 


(P c ) 2 

TpX 




A 


(77) 


Analytical expressions are readily obtained for the partial derivatives 
*A by the method indicated in reference 25. Using this technique it 
is possible to derive the following identities: 



(78) 

(79) 

( 80 ) 

(81) 

(82) 



- It 


(83) 


*1 

vac 


l(^l) + (^vac " *) ( n e + 


vac 


(84) 
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ITERATION TO AN ASSIGNED MACH NUMBER 


It may sometimes be desired to calculate conditions following an 
isentropic expansion to an assigned Mach number rather than to an 
assigned pressure. For example, one might wish to find the conditions 
at the throat of a nozzle where the Mach number is 1. The proce y e 
used in this report for calculating conditions at an assigned Mach num- 
ber is as follows: 

(1) An estimate of pressure corresponding to the assigned Mach num- 
ber is made. 

(2) After equilibrium composition and temperature have been obtained 
in a manner identical to isentropic expansion to assigned pressure, .he 
Mach number is then calculated. 

(3) The error between the desired Mach number and the calculated 
Mach number is used to obtain a new estimate for pressure. 

(4) Steps (2) and (3) are repeated until the desired degree of 
accuracy is obtained. 

The correction to the assumed pressure ratio can be obtained by 
using a parameter h*, defined as 




h* = h + 


w2 

Mq 

2 Jt 


(85) 


where h Y T and Jt are values corresponding to the assumed pressure, 
and Mo 'is the assigned Mach number. When ihe correct pressure (or pres- 
et ratio) is used, h* will equal the initial enthalpy of the propel- 
Is V The estimate for the pressure ratio is corrected on the basis 
e - - Since h* is a function of P, 


of the difference between h* and h c . 


Ah* = 


( 5h* \ 
\d In pJ £ 


A 111 P 


( 86 ) 


where 


and 


Ah* = h c - h* 



A In P = 


-417 
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with the subscript k referring to the k th estimate. Equation (86) 
then gives 


R c/ R k 


P 


k+1 



(87) 


The ( k+1 ) th estimate can be obtained from the k th estimate for the 
pressure ratio by means of equation (87), provided that (Sh*/5 In P) 

can be evaluated. Since y is essentially constant for a small change 
in pressure ratio, then from equation (85), 


• ’I 




2 r 


5(T /Jt) 

oP 


II 


( 88 ) 


From equation (46) for an ideal gas. 


d(T /Jt) 

1 

n ^ In 


s = R P 

- (viS-p j s 


(89) 


Using the thermodynamic relation (dh/dp) s = l/p and equation (89) 
equation (88) yields 


m 


csh* 


In P 


RT 

Jt 


M 2 

i + -o- (r - i) 


(90) 


In particular, at the throat Mq = 1 and equation (90) becomes 


c)h* 

<5 In P 


RT / \ 

T2 (r + 1} 


(91) 


COMPUTER PROGRAM 

A computer program for performing the calculations previously dis- 
cussed has been made for an IBM 650 Magnetic Drum Data-Processing Machine 
with 2000 words of drum storage , 60 words of high-speed core storage, 
indexing registers, floating point attachments, and an alphabetic device. 
When additional attachments such as tapes and RAMAC are available, the 
program may be modified to make use of these attachments. A wiring dia- 
gram for the IBM type 533 Read-Punch Unit is given in appendix I. In 
the description of the program, a familiarity with the symbolic coding 
for the IBM^ 650 computer (SOAP II ) is assumed, as described in IBM Form 
32-7646-1, Soap Programmer's Reference Manual.’ References to storage 
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locations will be made with symbolic addresses given in upper case and 
enclosed by quotes. For the absolute equivalents of the symbolic 
addresses, the program listing given in apperdixes F, G, and H can be 
consulted. 

Because of computer storage limitations , it was necessary to divide 
the program into two sections, (l) The "Vector and Propellant Program, 
which prepares most of the input data and requires an alphabetic device 
on the IBM 650, and (2) The "Main Calculating Program," which solves for 
the equilibrium compositions and temperatures and the performance param- 
eters. The Main Calculating Program may be used without using the Vector 
and Propellant Program if the necessary input data are prepared manually. 
The primary use of the Vector and Propellant Program is to simplify the 
preparation of input data and to minimize the possibility of errors. 
However, since the use of the Vector and Propellant Program is optional, 
the Main Calculating Program will be described first. 


MAIN CALCULATING PROGRAM 
General Description 

Figure 5 gives a schematic outline of the Main Calculating Program. 
Individual portions of the program will be discussed in more detail in 
later sections. A SOAP listing of the Main Program is given in appendix 
F, and operating instructions are given in appendix C. 

The program as written is capable of performing thermodynamic equi- 
librium calculations for both combustion and isentropic expansion condi- 
tions for a chemical system that may include as many as 10 different 
chemical elements (if no condensed phases appear as reaction products). 
When condensed phases are present as reaction products, then the sum of 
the different chemical elements and different condensed phases must not 
exceed 10. This restriction implies that the size of the reduced aug- 
mented matrix (fig. 2) is limited to 12x13. It should be emphasized 
that this restriction is imposed solely by nachine storage limitations. 

The program will handle as many as 30 reaction products and 25 pres- 
sure ratios including the combustion chamber and the throat. The restric 
tion on the number of products and pressure ratios is also the result of 
storage limitations. The program calculates the equilibrium composition, 
temperature, pressure, enthalpy, and entropj of the reaction products, 
and the following performance parameters: specific impulse, specific 

impulse in vacuum, thrust coefficient, chars.cteristic velocity, area ra- 
tio, specific heat, isentropic exponent T, and Mach number. The pro- 
gram also calculates the derivatives ^ the 

chamber-pressure derivatives Jtj, « 6 , fl T , and rt c# . 


Alt- 1 
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Normally the program calculates combustion conditions (P c /P = 1), 
then throat conditions ^ and finally other exit conditions corresponding 
to assigned pressure ratios. The program is easily modified to operate 
for assigned temperatures and pressures or to work a series of constant- 
enthalpy calculations at various pressures. The necessary changes in 
the program are given in the section "Program Modifications . " 

The following input data are required by the Main Calculating Pro- 
gram for the solution of equilibrium compositions and temperature follow- 
ing an adiabatic combustion process : 

(1) The reaction products to be considered 

(2) Gram atoms of elements in 1 gram of fuel and 1 gram of oxidant 

(3) Enthalpies of fuel and oxidant per gram of fuel and oxidant 

(4) Oxidant to fuel weight ratio o/F (or percent fuel or equivalence 
ratio r) 

(5) Thermodynamic data for products considered 

(6) Chamber pressure 

(7) Initial estimate of temperature, composition, and number of 
formula weights A. (A set of estimates is already provided by 
the program and therefore need not be supplied unless a better 
set is desired.) 


Reaction products (the composition vector) . - The composition of 
any product of reaction in terms of the elements may be represented as a 
chemical vector whose components are determined by the chemical formula 
for the reaction product. Thus, the molecule Z a ^Y b X c # . . . may be 
associated with the vector 111 


C = 



c 


i * 



The number of components associated with each composition vector is known 
once it is decided how many chemical elements are to be considered in any 
particular problem. For example, if hydrogen and oxygen were the only 
two elements appearing, then any reaction product could be specified with 
two components. If hydrogen, oxygen, and nitrogen were the elements under 
consideration, then each reaction product would have three components. 

This is illustrated in the following table for four possible products of 
reaction involving hydrogen, oxygen, and nitrogen: 
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Product 

Component 


H 

N 

0 

N 

0 

1 

0 

OH 

1 

0 

1 

h 2 o 

2 

0 

1 

NO 

0 

1 

1 


A considerable portion of the matrix of figure 2 may be constructed 
in a reasonably systematic manner with the aid of the composition vector. 
This is described in the section "Vector multiplication routine." 

Packed chemical vector. - The total number of components of all the 
chemical vectors is directly related to the size of the chemical system 
and to the number of possible reaction products. Thus, for a 10-element 
system in which 30 different products of reaction are to be considered, 
a total of 300 components requiring 300 storage locations would have to 
be specified. Since these numbers would be placed in the storage area 
of a computer with limited storage capacity, the storage area available 
for progr amming would be seriously reduced. It has been found that with 
a few suitable restrictions all the components of a vector may be packed 
into one 10-digit word, and thus only 30 storages would be required for 
30 products. The following restrictions have been set forth: 

(1) All the chemical vector components that are not specified are 
assumed to be zero. 

(2) No reaction product may be formed from more than five different 
chemical elements; that is, the chemical vector may have no more than 
five nonzero components. 

(3) Each subscript in the chemical formula for the reaction product 
must be less than 10; that is, no vector component may be greater than 9 

The packed chemical vector may now be generated from the chemical 
formula of a reaction product in the following manner: 


(l) Each element in the chemical system is assigned a number equal 
to one less than its column assignment in the reduced augmented matrix 
(ppg. 2 ) . This number is used to specify the component. 


( 2 ) The magnitude of any component is e jual 
dated with the chemical element in the chemical 
product under consideration. 


to the subscript asso- 
formula for the reaction 


(3) The packed vector consists of five pairs of numbers. In each 
pair of numbers (where both numbers are not zero) the number designating 
the component precedes the number that gives the magnitude of the 
component. 


fed 


-417 
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(4) The nonzero vector components and their associated magnitudes 
are arranged in the packed vector in the order of their appearance in 
the chemical formula of the reaction product, the entire packed vector 
being shifted as far to the right as possible. 

(5) The sign of the packed composition vector is positive for a 
gaseous reaction product and negative for a condensed-phase reaction 
product. 

An example of how components might be designated in an H-N-0 sys- 
tem is as follows : 


Element 

H 

N 

0 

Column of matrix 

1 

2 

3 

in fig. 2 




Number designat- 

0 

1 

2 

ing component 
(column number 

- 1) 





The assignment of numbers designating the elements is completely arbi- 
trary. However, once an assignment has been made for some problem, then 
product vectors must be consistent with this assignment. 

Examples of packed vectors for four reaction products using the 
numbers designating components given in the previous table are as 
follows : 


Reaction 

product 

Packed vector 

N 

00 00 00 00 11+ 

OH 

00 00 00 21 01+ 

h 2 o 

00 00 00 02 21+ 

WO 

00 00 00 11 21+ 


To read the preceding packed vectors, proceed as follows: 

(1) Pair the digits into groups of two. 

(2) The first digit of a pair designates the atom. 

(3) The second digit of the pair tells^ how many of these atoms 
there are . 
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(4) The sign is + for gas and - for condensed phases. 

For example, the H 2 0 packed vector may be interpreted as follows: 

00 00 00 02 21 + 

Ignored because both digits of each pair are uero 
Number designating element hydrogen^ 

Magnitude (number of hydrogen atoms) 

Number designating element oxygen- 
Magnitude (number of oxygen atoms) 

Gaseous product 


Calculation of gram atoms of elements in fuel and oxidant or in 
re actant. - To specify a reactant, the relative proportion of the^ ele - 
ments in the reactant is all that is required. That is, the absolute 


magnitude of the elements a^, bp, Cq, 


In the equivalent reactant 


Z a Y h X o 

aQ Dq Cq 


is immaterial if their ratios remain constant. In the 

IBM 650 program the number of gram atoms of each element in a reactant 
is calculated to be that number which gives an equivalent formula with 
a formula weight of 1 . 


For example, the equivalent formula in equation (l) (H 7 N 2 O 3 ) has a 
molecular weight of 83.072. In the IBM 650 program the equivalent for- 
mula would be H( 7 /q 3 _q 72 ) n ( 2/83.072) °(3/83.072) or H 0. 08426 N 0. 02408 

°0. 03611 = 1 )‘ 

The method selected in this report for -the calculation of the gram 
atoms of element per gram of reactant was based on the assumption that 
performance data for a particular reactant wculd be desired for a number 
of oxidant-fuel ratios. For this reason, the input to the Main Calcu- 
lating Program consists of the number of gran atoms of each element per 
gram of fuel and the number of gram atoms of each element per gram of 
oxidant. The number of gram atoms of each e 3 ement per gram of reactant 
can then be calculated from these quantities as soon as the oxidant-fuel 
ratio (or </ 0 fuel or equivalence ratio r) is specified as shown in the 
following discussion. 


The fuels are considered to be those materials undergoing oxidation 
primarily and the oxidants those materials undergoing reduction primarily. 
Let 1 gram of equivalent fuel be z af Y b f X c f • . and 1 gram of equiv- 
alent oxidant be Z Y h X ... where a f , b f , c f . . . and 

a x u x x 

g, b x , c x . . . are the number of gram atom. 1 ; of elements Z, Y, X . • • 

in 1 gram of equivalent fuel and 1 gram of equivalent oxidant, respec- 
tively. If W x is the weight of the oxidant and Wf the weight of 
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the fuel (o/F - W x /W f ) , then the number of gram atoms of each element 
in 1 gram of equivalent reactant Z Y.X ... is 

a 0 b 0 C 0 


W x^ + W f a f (0/F)^ + a^. ''I 
w x + Wf ~ (0/F) + 1 


W x b x + w f b f (0/F)*> x + h f 
W x + W f = (0/F) + 1 


> 


(92) 


J 


Equation (92) may be illustrated by considering the example of 
equation (1) j 


N 2 h 4 + | h 2°2 


( 1 ) 


The formulas per gram of equivalent, fuel and oxidant are 


W (2/32.048) H (4/32.048) N 0. 062406390 H 0. 12481278 ) 

\ (9 

( 2 /34.016) °( 2/34. 016) = H 0. 058795860 °0. 058795860 ) 

(Eight significant figures are kept in this example, since the IBM 650 
floating point attachment keeps eight significant figures.) For 
equation (l), 



1.5921118 


(94) 


and therefore 

(H) 8Q 


1.5921118(0.058795860) + 0.12481278 
Y . 5921118 t 1 = 0.084264252 

( t. 1.5921118(0) + 0.062406390 . . 

W b 0 = 17 5921118 + 1 = 0.024075501 


r (95) 


fr \ \ „ 1.5921118(0.058795860) + 0 

(°) = 375 921118 + 1 = 0.036113250 


J 


Calculation of enthalpy of fuel and oxidant or of propellant . - Let 
b f and h x be the enthalpy per gram of equivalent fuel and per gram 

of equivalent oxidant, respectively. Then the enthalpy per gram of 
equivalent reactant Z„ Y h X„ ... is 

®o D o c 0 



= bQ = 


(0/F)h x + h ;; 
(O/F) + 1 


Equation (96) may be illustrated by again cons i^^| Reference 
of equation (l) . Using values similar to those on page 19 of referen 

9 and the 0/F value from equation (94), 


h N 2 H 4 = h f " 


h H 2 0 2 - h x 


154,702.97 _ 482 7.2269 cal/g 

•7 0 O/i o 


32.048 

28,681.626 

34.016 


= 843.L8043 cal/g 


h 0 = 


1.5921118 (845.18045 ) + 4827.2269 = 2380i1691 ca l/g (98) 

rnOl "l T O i 1 ' 


1.5921118 + 1 


Optional specification of O/F . - In addition to the oxidant to fuel 
weight ratio o/F, two other quantities may he used to give the rela 
amounts of oxidant and fuel. One of these is the weight percent of fu.l 
in the propellant ^F and the other is the ecui valence ratio r. 

(l) l jfaF: The relation between O/F and $F is given by 


$>F = 


100 

[O/F) + 1 


(2) Equivalence ratio r: The equivalent 

of arbitrary, permanently assigned oxidation ; 
compound. This practice produces no difficul 
ments have the assigned oxidation state in al 
H = +1, Na = +1, F = -l) • Some elements have 
for example, sulfur, which has the oxidation 
compounds H 2 S, S0 2 , and H 2 S0 4 , respectively, 
assigned oxidation states are taken to be tho 
commonly in products. For this reason it is 
of the propellant combination may show a net 
tion state, contrary to the usual practice of 
dation numbers of a compound add up to zero. 

Let V+, V+, Vj . • - be the positive ox 
v - v" • • -be the negative oxidation states 

in the reactant. Let V x and be the tc 

and total negative oxidation_state, respecti\ 
oxidant, and let Vf and V f be the total I 

tion states, respectively, per gram of equiv* 


:e ratio is defined in terms 
states for each element in a 
;y so long as all the ele- 
their compounds (e.g., 
various oxidation states} 
lumbers -2, +4, +6 in the 
In cases such as this the 

3 e considered as occurring 
Dossihle that some components 
positive or negative oxida- 
having the sum of the oxi- 


idation states and Vr?, 
of the elements Z, Y, X . • 
tal positive oxidation state 
ely, per gram of equivalent 
ositive and negative oxida- 

aent fuel. Then, 
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V+ = a V + + b V + + c V+ + . 
x f x z x Y x x 

“ f®X^Z + b X^y + C X^Y + ' 


n = 


v f = 


a^V+ + b f .V + + c_pV + + . 


+ b f V ~ + c f v x + 


] 

] 

] 

] 




( 100 ) 


The total positive oxidation state V + and total negative oxidation 
state V" per gram of propellant are 

( 0 /F)V+ + Vf 
( 0 /F) + 1 

(o/f )v~ + v; 

(o/f) + 1 

The equivalence ratio may now be defined as 


V + = 


V" = 


( 101 ) 


r = 


V" 


v~ f + (o/f)v" 

v+ 


vf + (o/f)v+ 


( 102 ) 


This definition of r gives r = 1 for stoichiometric conditions, 
r > 1 for oxidant-rich conditions, and r < 1 for fuel-rich conditions. 
For those who prefer to consider r > 1 for fuel-rich conditions and 
r < 1 for oxidant-rich conditions, the reciprocal of r in equation 
(102) may be taken as the definition of equivalence ratio, provided that 
the computing program be correspondingly modified. 


The reaction of equation (l) may be again taken to illustrate equa- 
tions (100) and (102) . Let a, b, c refer to H, N, 0, respectively. 
Then, from equation (100), 


h 2 o 2 


v + = 

x 


v ; = 


m 2 h 4 


v; 


v't- 


[2(D 

[ 2 ( 0 ) 

[MD 

[4(0) 


+ 

+ 

+ 

+ 


(0)(0) + 2(0)]/34.016 = 0.058795860 

(0)(0) + 2(-2)]/34.016 = -0.11759172 
2(0) + 0(0)] /32. 048 = 0.12481278 
2(0) + 0(0)]/32.048 = 0 




y (io3) 


j 
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From equation (102), and using the o/F = 1.5921118 of equation (94), 


r 



(1.5921118) (-0.11759172) + 0 

.5921118) (0.058795860) + 0.12481278, 


0.85714286 


(104) 


For any problem it is sufficient to specify any one of the three 
quantities 0/F, °joF , or r, since any two may he expressed in terms of 
the third. (See eqs . (99) and (102) , e.g.) 


Thermodynamic data. - Since the computer program solves for tempera- 
ture simultaneously with composition, it was found convenient to repre- 
sent the thermodynamic data for each product as a function of temperature 
as follows : 


C°/R = A + BT + CT 2 + DT 3 


BT CT £ 


DT 3 


E 


, O m „ • JDJL hi hi , Ih 

H t /RT = A + — + — — + — t 


(105) 

(106) 


S°/R = A In T + BT + ^ ~ + F (107) 

where T is in degrees Kelvin. The function H^/RT must include Hq/rT, 
where is the reference enthalpy at 0° K (see eq. (14)). 


In order to minimize the errors resulting from a functional repre- 
sentation of the thermodynamic data, the six coefficients A, B, C, D, E, 
and F for each product were obtained from a simultaneous least -squares 
fit of the thermodynamic functions Cp/R, Hp/RT, and S^/R for several 
selected temperature intervals with continuity from one interval to the 
next. Coefficients for several substances in she C, H, 0, N, F, and Cl 
chemical system are given in table I. 


Calculating Routines 

The Main Calculating Program consists of sen major routines and sev- 
eral auxiliary routines with suitable connecting links. These routines 
are described in the following sections. 

Packed vector loading routine . - The flow chart for the packed vector 
loading routine is given in figure 6. This short program permits direct 
loading of the packed vectors from the Vector and Propellant Program. The 
packed vectors are in the form of load hub cards on which the second word 
gives the permanent code number associated wit.i the reaction product, and 
the fourth word gives the packed vector for the same product. The perma- 
nent code and the packed vector are loaded into sequential locations in 
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the P region; that is, the code and packed vector from the first card 
are placed into "P0001” and "P0002," respectively; the code and vector 
from the next card are placed into "P0003" and "P0004," and so forth. 


When the program encounters a condensed phase, it examines the con- 
tents of the word "OASIS" to determine whether or not this product is to 
he considered in the first iteration. Thereafter, the decision to use 
or not^to use a condensed phase is made internally. All positions of 
OASIS must be either zero or one, a zero indicating use and one indi- 
cating nonuse of a condensed phase. Each position of "OASIS" corresponds 
to a different condensed phase; thus position 1 (right-most position) is 
associated with the first condensed phase encountered, position 2 with 
the second, and so forth. For example, if "OASTS" contained 


00 0000 1101 + 

the program would not initially consider the first, third, and fourth 
condensed phases encountered. Should only two condensed-phase packed 
vectors be present, the program will ignore all positions beyond the 
first two. If the operator does not specify the contents of "OASIS," the 
program puts ones in all positions, thus initially considering only the 
gas phase. 


The packed vector loading routine requires a transfer card to pre- 
cede the first packed vector. The transfer card is a load hub card on 
which the first word is 


NOP 0000 V0001 + (or numerical equivalent, 000000 1599+) 


The last packed vector must be followed by another load hub card on which 
the first word is 


00 0000 0000 + 

The packed vectors themselves must be arranged so that all the gaseous 
atoms enter storage before any gaseous molecules or condensed phases . If 
this condition is not met, a programmed stop will halt the loading. (The 
vectors for gaseous atoms may be loaded in any order followed by the re- 
mainder of the vectors in any order. However, the thermal data coeffi- 
cients must be loaded in the same order as the vectors.) As each gaseous 
atom and each condensed-phase vector considered by "OASIS" is placed into 
storage, it is counted so that the two constants "ATQM1 " and "SYS," used 
to specify the size of the reduced augmented matrix, may be obtained. 

Both of these are fixed point numbers in the low -order positions. "AT0M1" 
gives the number of different elements in the chemical system, and "SYS" 
gives the number of elements plus the condehsed phases currently being 
considered. During the course of loading packed vectors, any load card 
with word 2 blank or zero will be bypassed. 
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Input data routine. - The flow chart for the input data routine is 
given in figure 7 . The routine converts the input data as specified by 
the operator into suitable form for use in the computer. Thus, using 
equations (99) and (102), it calculates any two of the quantities 0/F, 
r, and $,F from the one which is supplied by the operator. The numbers 
a Q , b Q , c 0 , . . . h Q are calculated from a f , a^., b f , b x , . . . h x , h f 

using equations (92) and (96) . Also, the combustion-chamber pressure in 
pounds per square inch absolute is converted to atmospheres . 

The input data for this routine and, hence, for the general program 
consist of the following: 

(l) A 4-digit identification number for the problem (case no.) is 
loaded, into T, F0039 n as 


0000 Case no. 00+ 

(2) The chamber pressure P c in pounds per square inch absolute is 
loaded into n F0000. M 

(3) The numbers a x , b x , . . - h x , and V x are loaded into 

locations 0537, 0538, . . ■ ; 0547, 0548, and 0549, respectively, and the 
numbers a f , b f , . • . j f J h f , V+, and V“ are loaded into locations 

0587, 0588, . . .J 0597, 0598, and 0599, respectively. If the Vector and 
Propellant Program is used, these numbers will, be prepared automatically. 

(4) Any one of the three quantities 0/F , r, and $F is loaded into 
"0/F," "EQRAT," or "PCT F," respectively, while the other two are loaded 
as zero. 

(5) A schedule of up to 25 pressure ratios is loaded into the region 
R(l075-1099) . 

A set of estimates for In n^, In T, and In A is already provided 

by the program and need not be supplied unless one wishes to use a better 
set of estimates. Convergence usually occurs without good estimates. 

The output from this routine is seven Be.l format cards (see dis- 
cussion in section on "Auxiliary routines" ana also appendix B). 'Hie 
first Bell card contains the following six words: r, 0/F, #F, P c (atm), 

h Q (cal/g) , and the identification number for the problem. The identifi- 
cation number is a composite of the equivalence ratio, the case number, 
and the chamber pressure in pounds per square inch absolute. The input 

data a f , bp, . . • J h f , Vp, V f , a x , b x , . . • J X J h x , Vp and V x 
are punched out on the next six Bell cards. A console-controlled punch 
can be used to obtain the calculated numbers a^, b Q . . . (h Q /R). 
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Load thermal data routine . - The thermodynamic data for each reac- 
tion product are represented hy six coefficients A, B, C, D, E, and F 
which were discussed in the section on "Thermodynamic data." The routine 
requires the coefficients to he on a load huh card in columns 21 through 
80 (the last six words). The first word on the card is actually the 
first instruction in the routine following the read command for a basic 
load card and is 


RAL 9051 RDB 

The second word is the identification for the card, being a composite of 
the permanent code for the molecule and the low temperature (divided hy 
10) and high temperature (divided by 10 ) of the interval for which the 
coefficients were obtained. Thus, if the code for the molecule is 0121 
and the temperature range is from 2600° to 3200° K, word 2 would be 


Code 

■^low 

■^high 

0121 

260 

320 


With this scheme no molecule may have a code greater than four digits in 
length or a temperature interval higher than 9990° K. 

The information from a thermodynamic coefficient card appears on 
the drum in a block of ten consecutive storages in the T region. The 
first word of the block contains the permanent code for the molecule in 
the instruction address position. For the previous example this would 


00 0000 0121 

The following six storage positions contain the thermal coefficients . 

The eighth word is reserved for the composition estimate In p^ or njj, 
while the last two words of the block are reserved for q. and -S.. 

Since the sequential blocks of ten storages are assigned to reaction 
products on the basis of their order of appearance, within any temperature 
interval the order of the thermal data cards must match the order of the 
packed vectors. If this is not so, a programmed stop will halt the load- 
ing of the thermal coefficients. 

Each set of basic load cards corresponding to some temperature inter- 
val must be followed by a Bell format card that is filled with zeros ex- 
cept for words 1 (columns 11 to 21) and 2 (columns 22 to 32). Word 
1 is the floating point number for the low temperature, and word 2 is 
the floating point number for the high temperature of the interval covered 
by the preceding cards . 
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The flow chart for the load thermal data routine is given in 
figure 8. 


Unpacking routine shd thermal routine . - The purpose of the unpack- 
ing and thermal routines is to construct a row vector. Thls 
vector is a set of consecutive core storage locations representing a 
convenient arrangement of quantities that will eventually con- 

struct the elements of the reduced augmented matrix. The row vecto 
and its contents are as follows: 


Symbolic 

location 

Absolute 

location 


Contents 

RV000 

9004 

(H§/R ) 1 Dur 3 ng expans ion , 
zero during combustion 

RV001 

9005 

H 


RV002 

9006 

b i 


RV003 

9007 

c i 


RV004 

9008 


Composition vector 

RV005 

9009 

e i 

RV006 

9010 

fi 

components as 

RV007 

9011 

H 

floating point 

RV008 

9012 

h i 

numbers 

RV009 

9013 

i i 


RV010 

9014 

K 


RV011 

9015 

1 For gas, 0 for condensed 

RV012 

9016 

^i 


RV013 

9017 

5 i 


RV014 

9018 

(H^/R) i For combustion, 
(S'/R) i for expansion 


H 


Storage space has been provided for ten subscripts or ten components 
of the composition vector. If the chemical system being used does not 
require ten components, then the first component appears m the lo ^ lon 
"RV011" minus "SYS” and is followed by the remaining components. The 
location^from "RV001" to "RV010” minus "SYS’ inclusive remain zero. The 
routine fills in the locations "RV<or trough ”RVOU' inclu-^ 
sj L the thermal routine completing the remaining quantities. The flo 
chart for the unpacking routine is given in : igure 9, whi e e erm 
routine is given in figure 10* 

of vectors The 

the mass -balance equations in figure ^ are g-nei 
operation: 


CA-5 b.ack 




E-417 


35 


a i P i 

b i P i 


^i P i 


[vV 


Jj^l* 



(108) 


Only those terms that are on or to the right of the principal diagonal 
are filled in. The gaseous-product contributions to the pressure-row 
elements are obtained from 

(109) 

The gaseous -product contributions to the enthalpy-row elements are ob- 
tained from 


Pi 


a i,bij 




L 


M 8 ?’* r 


R 




J ^ > 1 y Q. y ^ 


(HO) 


An entropy row is used in place of the enthalpy row during expansion, 
and the gaseous— product contributions to the entropy— row elements are 
given by 


Pis: 

R 


a i^i^ 


Ji jl> !i>Sj_ 


] 


an) 


The condensed products each contribute a row to the reduced aug- 
mented matrix , which , for Z Q Y-, X .... is 

Tff b N C N 






(112) 


and^ in addition^ the contribution of this condensed product to the col- 
umn (-A In A) is 


b N n N 


J a n ir 

o 


(113) 
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The flow chart for this routine is given in figure 11. 

Matrix completion routine. - This routine completes the matrix by 
calculating and adding to the - appropriate matrix elements the quantities 

A Aa, A Ab, . . • AP, A Ah, D=?)i"i/ R i n i/ E ’ “ d 

fleeting the symmetric portions of the matrix about the diagonal. During 

expansion, L(S T ) i n.^R replaces the term in the entropy row and 

-A In A column. When this has been completed, the routine examines all 
toe error terms, requiring them to be smaller than some preassigned value 
before the iteration process is halted. After convergence is complete, 
the program checks to make sure that the thernal data for the correct 
temperature interval were used and examines toe partial pressures of the 
condensable materials to ascertain whether or not condensed-phase pro- 
ducts should have been considered. The flow chart for this routine is 
given in figure 12. 

Matrix solution routine. - The correction variables for the gaseous 
atoms and condensed phases are obtained from toe reduced augmented matrix 
(fie. 2) by toe matrix solution routine presented in figure 13. The cor- 
rections to toe gaseous molecules are obtained from the correction equa- 
tions for the gaseous atoms using equation (£9). When the iteration proc- 
ess has converged to the equilibrium values, this same routine is used 
to solve the two sets of equations discussed in the section on Derivative 

Matrices . " 


The solution routine carries out a Gauss 
set; that is, it eliminates the first variab] 
ing the first equation, the second variable J 
the second equation, and so on- The solutioi 
equations appear in consecutive bands of stoi 
band one, the (n - l) th equation in band tw< 
energy equation appears in band one and the ] 
two- Within each band the coefficients of tl 
consecutive storage locations with the const 
last storage location of the band. 


reduction on the linear 
e from all equations follow - 
rom all equations following 
l routine assumes that the 
-age. 


the n th equation in 
>, and so forth. Thus, the 
>ressure equation in band 
Le variables are placed in 
int term appearing in the 


The number of equations to be solved mu it appear as an integer in 
the low-order positions of the upper accumulator when entering the rou 
tine. For the correction equations, this is specified by the constant 
"SYS + 2." The results of the solution appear in the first band with 
the first variable appearing in location 0049-"(SYS + l)” as shown in 
the following table: 


tF. 


/Tfr 



E-417 


37 


Storage location 

Variable 

0049 - "(SYS + 1)" 

A In 

0049 - "(SYS)" 

A In ny 

0049 - "(SYS - 1)" 

A In 



0046 


0047 

An w 

0048 

-A In A 

0049 

A In T 


Two entries to the routine are provided. The first is at location 
"SOLVE/ 1 and the second is at location "BACK." The first entry is used 
when the Gauss reduction must he performed, while the second is used 
when the reduction has already been accomplished and only the hack solu- 
tion is needed. 

The solution routine can run into difficulty in several situations 
while carrying out the Gauss reduction. The first happens when the ma- 
chine attempts to perform a floating multiplication of two numbers that 
are so small that the resulting product would he less than 10“^, and 
an underflow occurs. This has been taken care of for several operations 
by using branch on overflow commands and replacing the result of the 
multiplication by a zero if underflow occurs. 

A second difficulty occurs when the coefficient matrix of figure 2 
is singular or nearly singular; that is , its determinant is zero or 
very nearly so. In this case, because of the way in which the reduction 
is performed, the machine attempts division by zero. This problem arises 
when the system is such that within the precision of the calculations 
only one reaction product exists, as may occur for stoichiometric condi- 
tions at low temperatures. For example, in the chemical system hydrogen 
and oxygen at low temperatures and stoichiometric conditions, gaseous 
water is the only reaction product of any significance. This type of 
difficulty may be handled by changing the relative amounts of oxidant 
and fuel slightly from stoichiometric conditions (perhaps 1 to 10 parts 
per million) and repeating the calculation. 

A third, and perhaps the most difficult, situation occurs when the 
coefficient matrix is poorly conditioned. For example, if the coeffi- 
cient of the k th variable in the k th equation is small relative to the 
coefficients of the (k + l) th , (k + 2 )th, . variables in the same 

equation, and if the k tfl equation is then used to eliminate the k th 
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variable from the (k + l) th , (k + 2) th , . . • equations at an early 
stage of the calculations, then large roundirg errors may occur. This 
situation occurs more often when condensed pt ases are present in the 
calculation than when only gaseous products are considered. In partic- 
ular, if one chemical element appears almost exclusively in the con- 
densed phase, the matrix element for this chemical element, which appears 
on the diagonal, will be very small. Should the row containing this 
small element be used to eliminate its variable at an early stage of the 
solution, then large rounding errors may occur, causing the solution 
vector obtained to bear little resemblance to the true solution vector. 


To take care of this situation, a modified pivot method has teen 
incorporated into the solution routine. This, feature may be used at the 
operator's discretion, since it is console-controlled. An 8 in position 
one of the console (right-most position) causes pivoting. Prior to each 
elimination, the program examines the remaining equations and selects 
the best one for eliminating the next variable. The program selects the 
best equation to be that equation in which the coefficients differ by 
the smallest amount after division by the coefficient of the variable o 
be eliminated. 

For the usual problems involving only gaseous products and those 
for which graphite is the only condensed phase, adequate solutions can 
be obtained without use of the modified pivoting routine. If no dill i- 
culty is expected, it is recommended that the pivot feature not be use , 
since each iteration will require more time. 

Correction r outine and performance-parame ter routine. - The correc- 
tion routine (fig. 14) applies the corrections to the estimates during 
the course of iteration. Once the iteratior procedure has converged to 
a solution, the performance-parameter routire (fig. 15) calculates the 
performance parameters. 

of calculations it is nec- 
, taking square roots, and 
on Bell format cards. The 
the program for this pur- 
subroutines in reference 26. 
i the locations 1833 to 1999, 
arrangement of the words in 
just prior to punching, and 
t are to appear are given in 


Auxiliary routines. - During the course 
essary to use subroutines for exponentiatior 
for punching the results of the calculations 
subroutines that have been incorporated intc 
pose were taken from a collection of closed 
"Phg “three subroutines have been assembled ii 
and a listing is given in appendix F. The ; 
the punch band by the punching subroutine, , 
the corresponding card columns in which the, 
appendix B. 

Because of the iterative nature of the calculation, it is at times 
desirable to have information on the progress of the calculations, This 
has been provided in the form of four console-controlled punches that 
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may be used individually or in any combination to give intermediate an- 
swers during the iterative process. However, because of storage limi- 
tations it was necessary to consider these intermediate answer-punching 
routines as expendable. For this reason they were assembled in the 
lower portions of the P and T regions and hence can only be used at 
the expense of a number of reaction products. The output of the punches 
is on Bell format cards. The punches are as follows: 

(1) Console position 2: To be used only when there are 28 or less 

reaction products . An 8 in position 2 of the console causes punching, 

£j in order, of (3 - P/Pq) > (l - h/h 0 ) , or (l - s/s 0 ) depending upon whether 

it is a combustion or expansion process, (l - a/a^,), (l - b/b 0 ) , .... 
These are followed by the code and -5^ for each reaction product. 

(2) Console position 3: To be used only when there are 26 or less 

reaction products . An 8 in position 3 of the console causes punching 
of P, T, and A, followed by the code and for each reaction 

product. 

(3) Console position 4: To be used only when there are 26 or less 

reaction products . An 8 in position 4 of the console causes punching 
of the entire reduced matrix, one equation at a time. 

(4) Console sign: To be used only when there are 28 or less reac- 

tion products . A minus sign on the console causes punching of the solu- 
tion to the reduced augmented matrix. 


Convergence 

Because of the complexity and variability of the problem, no exact 
analysis can be made of the rate of convergence of the iteration. It is 
possible, however, to obtain useful information on the rate of conver- 
gence by studying a few representative chemical systems. A function E 
is defined that will be used to indicate the error left in the system by 
the current estimates : 



where the summation includes all reaction products. The first group of 
terms will be called the mass balance errors, and the last group will be 
referred to as the equilibrium errors. Using identical initial estimates 
in all cases - namely, p ± = 1 atm, n^ = lxlO -11 mole, T = 3800° K, and 

A = 148.4 formula weights - it was possible to construct the curves given 
in figures 16 to 18. 
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From figure 16 it is seen that ln-y/E decreases linearly in the 
initial stages of the calculation, the slope increasing quite rapidly 
once E has been reduced to approximately 1. In other words, as con- 
vergence is approached, the rate of convergence increases. The erratic 
behavior of the curves for small E is due to los6 of significance when 
convergence is essentially complete. Although the total error of the 
system is exponentially reduced in a rather systematic fashion, no such 
trend has been observed in the mass balance or equilibrium errors taken 
separately. 

For the three cases shown in figure 16, 10 to 18 iterations were 
required to reduce the error to an acceptable limit when starting with 
poor estimates. The number of iterations may be even higher in some 
cases, in particular, if the temperature interval for the thermodynamic 
data that was selected on the basis of the initial estimate for the tem- 
perature is not the correct interval, or if there are any additions to 
or subtractions from the list of reaction products when the program 
checks for condensation of condensable materials. 


The number of iterations can usually be significantly reduced if 
the correct assumption on the existence or nonexistence of condensed 
phases is made and if a good estimate for the reaction temperature and 
composition is available. A large number of iterations is unusual for 
pressure ratios other than the first, because the program uses the an- 
swers from the preceding calculation as estimates for the following 
point. These are generally good estimates. End therefore fewer itera- 
tions are required. This is illustrated in figure 17, where. ln-^E 
is plotted as a function of the iteration number. The data in figure. 

17 were obtained for the reaction of equatioi. (l) using the same initial 
estimates as for figure 16. As shown by figure 17, convergence to com- 
bustion and throat conditions each required 11 iterations, while the 
following three exit points needed only 8, 6. and 5 iterations, respec- 
tively. The performance results of this example are given in table IV. 


For the problem shown in figure 17, it ■'..fas assumed that the itera- 
tion procedure had converged to a solution when each of the mass balance 
errors, such as (l - a/ % ), had a magnitude less than 5X10“' and each of 

the equilibrium errors had a magnitude ..ess than 5x10 s 


1 - 


i 

h 0 


L< 5xio" 7 ; b 1 < 5xio 


-6 


fed 
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5 < 

i 


These convergence criteria result in more accuracy than may be desired 
m some cases. For the example in figure 17, relaxing the convergence 
criteria by a factor of 10 permitted the total number of iterations to 
e reduced from 41 to 34 while still retaining five or more figures of 
accuracy In the final result. 

When a poor set of estimates is made for the variables, the first 
iteration usually overcorrects the estimates and results in an increase 
m the value of E, as may be seen from figure 16. A solution to this 
problem is to restrict the size of the applied corrections. This tech- 
nique is often used in iterative calculations; however, an increased 
number of iterations is generally required to converge. One procedure 
is to multipiy each correction by some constant factor less than 1 (see 
rei. 19, e.g.j. With such a technique it is often possible to induce 
convergence in what would normally be a divergent case, although an in- 
creased number of iterations is required. An alternative procedure has 
een developed that not only prevents overcorrection and produces con- 
vergence in all divergent cases that have occurred so far in this labo- 
ratory, but also often decreases the number of iterations required to 
reach convergence. In this procedure, the magnitude of each component 
of the solution vector of figure 2 must be less than a specified maximum 
value. If one or more components are larger than this specified maximum, 
e largest component is reduced to the specified maximum, and all the 
other components, including all A In p., are reduced proportionally. 

Figure 18 shows the effect of various maximum magnitudes imposed on the 
solution vector. Restricting the magnitudes of the components to 5 re- 
sults in the fewest number of Iterations for this case. In other cases 
a maximum component magnitude of 3 appeared to be best, particularly in 
systems with fewer chemical elements and reaction products. 

The restriction of magnitude of the solution vector is given as an 
optional program and is discussed in the next section. ~ 


Program Modifications 


The standard program is considered to be the program that first 
calculates combustion conditions for assigned enthalpy and pressure and 
en throat and other exit conditions assuming equilibrium composition 
of the reaction products during isentropic expansion. However, several 
modifications to the standard program are available. 


The limitations to be discussed apply only to the particular 
given m appendix F. If the program were assembled in some other 
then these limitations would no longer apply. 


assembly 

fashion. 
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Assigned enthalpy for series of pressures . - The first modification 
permits the calculation of an assigned enthalpy problem for a series of 
Pressures. This is accomplished by changing one instruction of the pro- 
gram and can be done at no sacrifice in the number of permitted reaction 

products . 

Restricti on on magnitude of solution vector . - A second modifica- 
tion places a size restriction on the maximum magnitude of the solution 
vector of the matrix of figure 2. If any component is larger than this 
maximum value, then all the corrections, including A In p ± , are multi- 
plied a number less than 1 so that the maximum component of the solution 
vector of figure 2 becomes equal to the maximum permitted value- is 
program modification may be used only if no mere than 26 reaction prod- 
ucts are being considered. In addition, only the intermediate punches 
controlled by console position 2 and sign may be used. 

Assigne d temperature and pressure . - The third program modification 
permits calculations for an assigned temperature and pressure. This 1 
done at a sacrifice of five reaction products; however, the intermedi 
punches controlled by console position 2 and sign may be used in addi- 
tion to the program change that controls the size of the solution vector. 
The modified program for calculations at assigned temperature and pres 
sure is not very efficient, since the program performs many unnecessary 
calculations. However, a more efficient program for this type o c cu- 
lation can be made with more extensive modifications. The modified 
pivoting routine may not be used for assigned temperature and pressure 
calculations. To perform calculations at an assigned temperature for a 
S erS prhsurel, the program modification s for an assigned enthalpy 
and a series of pressures must also be included. 


Calculations for Assumption of Frozen 
Composition During Expansion 

Rocket performance parameters are generally calculated either with 
the assumption of complete chemical equilibrium among the combustion 
products during the expansion process (equilibrium expansion) or with 
composition remaining fixed at combustion-chamber composition during the 
expansion process (frozen composition) . The method for calculating per- 
formance for the first assumption has been described in the previous 
sections. Performance calculations for the second assumption are the 
same with respect to determining combustion conditions; however, deter- 
mination of exit conditions, which is described in the next section, is 
far simpler, since the composition of reaction products is already known 

Equations for frozen-compositio n isentrcpic expansio n to assigned 
pressure. - Since composition during expansion is fixed as the 
combustion-chamber composition, the following relations are obtained. 
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(115) 


Substituting equation (115) into equations (18), (19), and (20) and re- 
arranging terms give, as the condition for frozen isentropic expansion; 


2(n i ) c (S°) i +RP c ln^= feniCsJ).] (lie) 

1 e e L i ij c 

Equation (116) can be written in a form analogous to equation (20) if the 
following definitions are used: 


s e = E (Sj) ± + RP c In jp- (117) 

l c e 

S c = [S n i( s ?)i] c (118) 

for then^ 

S f = S c (H9) 

For an assigned exit pressure, equation (117) is a function of tem- 
perature only. For any guess of exit temperature T, equation (119) will 
not be satisfied identically, and hence an iteration scheme again is em- 
ployed to converge to correct temperature. The total differential of 
equation (119) in finite-difference form is 


or 



A In T 



( 120 ) 


( 121 ) 


Equation (121) may be used to obtain new values of T until the 
value of AS f is less than some assigned small value. 


After convergence has been reached, the calculation of the rocket 
performance parameters is similar to that described for equilibrium com. 
position during expansion. 
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Description of program. - Because of storage limitations, the pro- 
for the calculation "of rocket performance assuming frozen composi- 
tion during expansion could not be incorporated as part of the standard 
program for equilibrium-composition calculations. Equilibrium composi- 
tion in the combustion chamber is first calculated with . the standard 
deck. The program for frozen-composition calculations is then read into 
storage and calculations for frozen composition are begun. Operating 
instructions for this program are given in appendix D, a flow diagram 
in figure 19, and a SOAP listing in appendix G. 


VECTOR AND PROPELLANT PROGRAM 

The Vector and Propellant Program was prepared in order to have a 
simple and almost automatic method of preparing the packed vectors an 
the quantities (henceforth referred to as packed propellants) a*, b f , 
c f , . . ., a x , b , c x , . . V+, V-, V+, V", h f , and h*. The output 

of this program serves as part of the input data for the Main Calculating 
Program (see input data routine). The storage locations for the packed 


propellants are 
549; a^i ^ ^ p j 


x ; 


"X* 


537 to 546; h , V~, 547, 548, 


587 to 596; 




L x> 

vi, v“, 597, 598, 599. 


The flow diagrams for this program are given in figures 20 to 25 
and are discussed in the section on "Calculating Routines. Operating 
instructions are given in appendix E, and a SOAP listing is given in 
appendix H. Included in the SOAP listing are two punch subroutines 
taken from reference 26. The format of the output of these two routines 
(Bell and Random) is given in appendix B. Also given in appendix B is 
the output format of the packed vectors. 

There axe ten types of input cards to the Vector and Propellant Pro- 
gram. The type of card is indicated by a symbol of two or three alpha- 
betic or numerical characters appearing in columns 48, 49, and 50 of the 
IBM card. The data (if any) corresponding to the type of card follow in 
columns 51 through 72 of the card. The ten nypes and their functions 
are listed in the following table and will be discussed more fully m 
the following sections: 
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Symbol for 
type of 
input 

Function 

Comment 

ATM 

Specifies an alphabetic chemical 
vector for the gaseous atom; 
e*g« y Ey AL y or CL 

No subscripts permitted 
for chemical symbol 

BOP 

Begins program by clearing and 
initializing 


END 

Begins calculations (end of 
input data) 

Begins calculation of 
a f> a x > "bp* etc. 

EFn 

Specifies enthalpy of n*"* 1 
fuel in cal/g-mol 

0 < n < 9* 

EXn 

Specifies enthalpy of n th 
oxidant in cal/g-mol 

0 < n < 9* 

Fn 

Specifies n th fuel 

0 < n < 9* 

MOL 

Specifies all reaction products 
that are not atoms; e.g W y 
H1F1 y N1H3, H1CL1 

All subscripts must be 
given explicitly 

PFn 

Gives the weight percent or 
weight fraction of n^ 1 
fuel in combined fuel 

Weight percent or 
weight fraction in 
floating point 

0 < n < 9* 

PXn 

Gives weight percent or 
weight fraction of n^* 1 
oxidant in combined oxidant 

Weight percent or 
weight fraction in 
floating point 
0 < n < 9* 

Xn 

Specifies n"^ oxidant 

0 < n < 9* ( 


* n = 1 through 9 specifies fuel or oxidant 1 through 9, but n = 0 
specifies the tenth fuel or oxidant. 


Only two types of cards in the preceding table are general for 
every problem. These are BOP and END. 
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Transfer Cards 

BOP - Initialize card. - The BOP card ser/es to initialize the pro- 
gram, preparing it to process a new collection of vector and propellant 
cards. BOP precedes all other input cards: 


Input 

Output 

Card 

column 

+ Sign 
(12 punch) 

BOP 

No output 

3 

48-50 


END - Start calculations. - The END card follows at the end of all 
other input cards and serves as a transfer car'd to begin calculation of 
the packed propellants : 


Input 

Output 

Card 

column 

+ Sign 
(12 punch) 

END 

No output 

3 

48-50 


Input for Packed Vectors 

The preparation of the packed vectors requires only two types of 
input cards, ATM and MOL. These two types specify the products of reac- 
tion to he considered. For bookkeeping purposes each product of reac- 
tion is given a permanent 4-digit numerical code. This permanent code 
also appears on the thermodynamic data cards for the same product and 
serves as a check during calculations in the Main Calculating Program. 

ATM - Atom cards. - The ATM cards are us ;d to specify which chemical 
elements will be considered in the equilibriun calculations. They are to 
be used only for the gaseous atoms. The reduced matrix column assignments 
are based on the order of appearance of the AIM cards. AIM cards must 
precede all the other type cards with the exception of BOP cards. The 
output of an ATM card is a packed vector for the gaseous atom: 
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Input 

Output 

Card 

column 


Card 

column 


3 

+ Sign (12 punch) 

17-20 

4-Digit code for gaseous 
element (same as 44-47 
of input) 

44-47 

4-Digit permanent code 
for gaseous element 

31-40 

Packed chemical vector 

48-50 

ATM 

41-80 

Input reproduced 

51-52 

Chemical symbol for 
element, e.g., AL, 
CL, E (no numerical 
subscripts ) 



53-80 

Blank 




... ^ MO L - Molecule cards . - The MOL cards are used for the composition 
vec ors of all reaction products that are not gaseous atoms. Thus, con- 
densed elements such as graphite would he on MOL cards. The output of 
a MOL card is a packed vector for the corresponding product : 



Input 

Output 

Card 

column 


Card 

column 






3 

42 

+ Sign (12 punch) 

Sign (- for condensed phase, 
+ or blank for gaseous 
phase) 

17-20 

31-40 

4-Digit code for 
reaction product 

Packed chemical 
vector 

44-47 

4-Digit permanent code for 
reaction product 

41-80 

Input reproduced 

48-50 1 

MOL 



51-65 

Chemical symbol for reaction 
product. All subscripts 
must be explicitly given; 
e-g. f 

CH 4 is C1H4 




H 2 0 is H201 

AlgO^ is AL203 




(0 is an alphabetic 
character ) 



66-80 

Blank 
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Input for Packed Propellants 


A number of propellants consist of more than one fuel or one oxi- 
dant. The Vector and Propellant Program can accommodate a propellant 
consisting of a mixture of up to 10 fuels and up to 10 oxidants. Each 
fuel and each oxidant in the propellant is characterized by three cards. 
For the fuel, the three cards are Fn, PFn, and EFn; and for the oxidant, 

Xn, PXn, and EXn. 

Fn - Fuel cards . - The Fn cards are used mo specify the chemical 

formula of the n th "fuel , where n is any one of the integers 1, 2, 3, 
45 6 7 8 9, 0 (0 is used for the tenth fuel) . The subscripts for 
elements on the fuel cards may either be integers less than 9 digits in 
length or floating point numbers. Either one or both forms may be used 
in the same Fn card. Should the chemical formula for the 


n 


fuel be 


in the same jrn cara. onuiuu. ww — "77 , , . . 

too long to fit on one card (more than 22 columns) it may be continued 
on the next card providing that (l) the same Fn symbol is used, and (2) 
the complete numerical subscript for an element is on the same card as 
the alphabetic symbol for the element: 


Input 

Card 

column 


3 

+ Sign (12 punch) 

43-47 

Anything - never used in program 

48-49 

Fn where n — 1 j2>3,4,5,6,7,8,9,0 

50 

Blank 

51-72 

Chemical formula for "the fuel 


Output 


Card 

column 


0-80 


Input reproduced 


Three examples are given to illustrate Fn cards 


Fuel 

Columns 48-49 

Co Lumns 51-72 

n 2 h 4 

FI 

N2H4 

C 8 H 18 

FI 

C8H18 (or C8H1 800000052) 

Mixture of 

FI 

NTH 3 

and Hg 

F2 

H2 
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Xn - Oxidant cards . - The Xn cards are identical to the fuel cards 
except that these cards are used for the n^ 1 oxidant, and Fn in card 
columns 48 and 49 is replaced by Xn. Two examples are given to illus- 
trate Xn cards: 


Oxidant 

Columns 

48-49 

^Columns 51-72 

H 2°2 

XI 

H202 

M l. 05.29061 °3. 0344255 
(Red fuming nitric 
acid) 

XI 

XI 

H1N1052906151 

03034425551 


*- 

0 is an alphabetic character. 


PFn - Percent fuel cards . - The percent fuel card PFn gives the 

weight percent of the n^ fuel in the fuel mixture. The percent or 
weight fractions must be expressed as floating point numbers. There 
must be a PFn card corresponding to each Fn card: 


Input 

Output 

Card 

column 

+ Sign (12 punch) 

PFn (n « 1,2, 3, 4, 5, 6, 7, 8, 9,0) 

Weight percent of n^ fuel 
in fuel mixture (a floating 
point number) 

Card 

column 

Input reproduced 

3 

48-50 

51-60 

0-80 


Two examples are given to illustrate PFn cards: 



Columns 48-50 

Columns 51-60 

One fuel only 

PFl 

1000000053 

Mixture of fuels 

(20 percent fuel 1, 
80 percent fuel 2 
by weight) 

PF1 

PF2 

2000000052 

8000000052 


PXn - Percent oxidant cards . - The PXn cards are identical to the 
PFn cards except that they refer to the n^ oxidant. 
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TWn - Fuel enthalpy cards. - The EFn card format is identical to 
that of PFn and FXn , except '"that instead of weight percentages this type 
of card gives the enthalpy of the n th fuel in calories per formula weight 
as a floating point number. An example is given to illustrate an EFn 

card: 



Columns 48-50 

Columns 51-72 

Enthalpy of ( l ) 

at 298.16° K 
(see eq. (97)) 

EF1 

1547029756 


EXn - ox idant enthalpy cards . - The EXn cards are the same as the 
EFn card except that they refer to oxidant rather than fue . 




Calculating Routines 


Flow charts and tables. - Figure 20 gives a general flow chart for 
the Vector and Propellant Program and includes the BOP routine. Flow 
charts for the other routines are given in figures 21 to 2b. 

For the calculation of the packed propellants, the program requires 
a table of atomic weights and assigned oxidation states. The atomic 
weight table for 101 elements is located in tie M region, while the 
corresponding table for the oxidation states is in the V region. The 
a?oSc weigh? table is complete, while oxidati on- state assignments have 
been made only for several elements. Additions or alterations to the 
tables of atomic weights and oxidations states may be made as needed. 


Formulas for p ropellants containing several fuels or several 
oxidants. - The program can prepare "packed propellant cards for pro- 
pellant s' containing as many as 10 fuels and 10 oxidants. The combina- 
tion of all fuels is referred to as the equiv.ilent fuel, while the com- 
bination of all oxidants is referred to as the equivalent oxidant. The 
necessary equations are given as follows : 


According to the definitions given in previous sections, 

Z X . . . and Z n Y h X_ . • • refer :o 1 gram of equivalent 

a f 13 f c f a x D x c x 

fuel and 1 gram of equivalent oxidant having enthalpies h^ and h x , 
respectively, where ap, bp, cp . . . and a ;<; , b x , c x are the 

number of gram atoms of elements Z, Y, X, . . . in the gram °f equiv- 
alent fuel and the gram of equivalent oxidant, respectively. Let the 

i th oxidant have the formula Z Y^ X c • • • > its mass W x . ’ and its 

x i x i x i 
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enthalpy (H°) , while the i th fuel has the formula Z Yv X 

x i a f c 


X i f i 

its mass and its enthalpy The total weight of oxidant is 


W x and the total weight of fuel is W f ; 


Wf = Z w f4 


i f i 


«x - E » X1 


Therefore, the oxidant-to-fuel weight ratio is 


( 122 ) 


0_W X 

F “ W f (123) 


The gram atoms of elements per gram of equivalent oxidant or fue^ are 



(124) 


h 


f ~ 





(125) 


Equation (124) may be used in equations (92) and (100) to obtain 
V c 0> * ’ ’ V+, V-, Vp, and V£, while equation (125) may be 

used in equation (96) to obtain h Q . 
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Example 

The propellant N 2 H 4 + | HgOg has been used in this report for pur- 
poses of illustration (see eqs. (l), (93) , (94), (95), (97), and (98)). 
This same problem will be used to illustrate the input and output of the 
Vector and Propellant Program and the Main Calculating Program, 


The products considered, which are all gaseous, are H, N, 0, H;?, 
H 2 0, N 2 , NO, 0 2 , and OH. The values of enthalpy for the propellants 
are similar to those on page 19 of reference 9 » 


( H 298.16^n 2 H 4 (7) 
^^298.16 H„0„(Z ) 

C C 


= 154,702.97 cal/mol 
= 28,681.626 cal/mol 


The input 
Operatijjg Deck 


and output of the Vector and Propellant Deck and the Main 
are given in tables II to V. 


w 


Lewis Research Center 

National. Aeronautics and Space Administration 
Cleveland, Ohio, July 2, 1959 
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APPENDIX A 


SYMBOLS 


number of formula weights of equivalent reactant j also, 
cross-sectional area of a nozzle, sq in. 


velocity of sound. 




5pT 

^)s 


ft/sec 


number of gram atoms of the elements Z,Y,X, . . . 

thrust coefficient 

molar heat capacity at constant pressure, cal/ (mole) (°X) 

heat capacity at constant volume, cal/ (mole ) (°K) 

characteristic velocity, ft/sec 

internal energy per unit mass, cal/mole; also error 
function defined by eq. (114) 

free energy per mole of formula weight of material, 
cal/mole 

weight or mass percent fuel 

gravitational conversion factor, 

32.174 (lb mass/lb force) (ft/ sec^) 

sum of sensible enthalpy and chemical energy per mole 
or formula weight of material , cal/mole 

sum of sensible enthalpy and chemical energy per unit 
mass of material, cal/g 

iteration parameter defined by eq. (85) 

specific impulse with ambient and exit pressures equal, 
(lb force) (sec) /(lb mass) 

specific impulse in vacuum (ambient pressure equal to 
zero), (lb force) ( sec) /(lb mass) 
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K 

M 

Jt 

N 

n 

o/f 

P 

P 

Pvap 

Q 

q. 

R 

r 

S 

s 

T 

U 

V 

v 

W 

w 


x,y 

Z,Y,X, . . . 


thermodynamic equilibrium constant 
Mach number 

molecular weighty formula veight or atomic weight 
number 

number of moles or formula weights of material 
oxidant-to-fuel weight or mass ratio 

static pressure (sum of partial pressures), consistent 
units 

partial pressure , consistent units 
equilibrium vapor pressure of gas 
any function 

symbol for d(-AF§/RT)/d In T = AH£/RT 
universal gas constant, consistent units 
equivalence ratio defined jy eq. (102) 
entropy per mole or formula weight of material 
entropy per unit mass of material, cal/(g)(°K) 
temperature, °K 
velocity 

oxidation state or volume 
volume per unit mass 
mass 

mass-flow rate, (lb massj/sec; also, weight or mass 
fraction 

independent variables 

symbols for the chemical elements 


i T*r 
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a 

r 

5 

€ 

n 

P 

Subscripts : 

c 

e 

f ± 

g 

i 

M,N 

P 

r 

s 

T 

t 

V 

x i 

Z,Y,X, . . . 

0 


activity of a material 
isentropic exponent, (d In p/S In p) s 
error in equilibrium equation, AF/RT 
area ratio 

W1 by eq SU ( > 76 )' iPt ' & Ch ^ ber_pressure exponent defined 
mass density, consistent units 

combustion chamber or condensed phase 
exit points of a nozzle 
i th fuel 
gaseous phase 

ith Preset of reaction, ith function ^ ± th variable 

M th , W th , . . . condensed reaction products 
constant pressure 
equivalent reactant 
constant entropy 

at temperature T; also, constant temperature 
throat of a nozzle 
constant volume 
i^h oxidant 

refers to chemical elements 

an assigned value, equivalent reactant, or absolute 
zero of temperature 
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Superscripts : 

^ frozen composition during expansion 

q thermodynamic standard state 

+ positive oxidation state 

negative oxidation state 
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APPENDIX B 
CARD FORMATS 

card s r ilOWlnS arS W ° rd arrangements for BelJ , Random , and SOAP II output 
Word arrangement for Bell card: 


Punch band 

Card column 

Word 1 

11-21 (sign in 11 ) 

Word 2 

22-32 (sign in 22) 

Word 3 

33-43 (sign in 33) 

Word 4 

44-54 (sign in 44) 

Word 5 

55-65 (sign in 55) 

Word 6 

66-76 (sign in 66) 

Word 7 (positions 8-5) 

6-9 (location of word l) 

Word 8 (positions 8-5) 

5, 77-79 (prob. no.) 

Word 9 (position 5) 

10 (word count) 

Word 10 (positions 9-5) 

80 (tab. space control) 


1-4 (card number) 
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Word arrangement for Random card: 


Punch band. 

Card column 

Word 1 

5-15 (sign in 15) 

Word 2 

20-30 (sign in 30 ) - 

Word 3 

35-45 (sign in 45) 

Word 4 

50-60 (siga in 60) 

Word 5 

, 65-75 (sign in 75) 

Word 6 (positions 8-5) 

1-4 (location of word l) 

Word 7 (positions 8-5) 

16-19 (location of word 2) 

Word 8 (positions 8-5) 

31-34 (location of word 3) 

Word 9 (positions 8-5) 

46-49 (location of word 4) 

Word 10 (positions 8-5) 

61-64 (location of word 5) 


76-80 (non used) 
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Word arrangement for SOAP II output (packed vectors): 


Punch band 

Card column 

Comments 


1-10 (sign in 10 ) , emitted 

Not used in program 

Word 9 

11-20 (sign in 20) 

Columns 

17-20 are 



product code 


21-30 (sign in 30), emitted 

Wot used in program 

Word 7 

31-40 (sign in 40) 

Packed 

vectors 

Word 8 (position l) 

41 

Reprodu 

ce input 

Sign of word 7 

42 



Word 1 (positions 5 to l) 

43-47 



Word 4 (positions 5 to 3) 

48-50 



Word 1 (positions 5 to l) 

51-55 



Word 4 (position 2) 

56 



Word 3 (positions 5 to l) 

57-61 



Word 4 (position l) 

62 



Word 5 (positions 5 to l) 

63-67 



Word 6 (positions 5 to l) 

68-72 


> 
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APPENDIX C 


OPERATING INSTRUCTIONS FOR MAIN CALCULATING PROGRAM 

Normally the computer program will not be loaded as one instruction 
per card, SOAP cards, but will be subjected to some shrinking procedure 
that will permit loading of five or six instructions per card. (See 
appendix B for formats of Bell and Random cards.) Assuming this to be 
the case and also assuming that all input data which must be loaded are 
in the same card format, the following operating instructions apply for 
the Main Calculating Program: 

(1) Set console: 

(a) Storage entry switches (70 1951 3/8 9/8 9/8 9/Q ±) : 

An 8 in position 1 - pivoting during solution 

An 8 in position 2 - punching of current errors 

An 8 in position 3 - punching of current values for 

variables 

An 8 in position 4 - punching cf reduced augmented matrix 
Minus sign - punching of solution vector for reduced 
augmented matrix 

When the program has been loaded, the 9 in the position 7 of 
the console may be changed to an 8 if the operator does not wish the 
program to check for condensation. 

(b) Set programmed switch to STOP. 

(c) Set half- cycle switch to RUN. 

(d) Set control switch to RUN. 

(e) Set display switch to PROGRAM REGISTER. 

(f) Set overflow switch to SENSE. 

(g) Set error switch to STOP. 

( 2 ) Place cards in the read feed so that they will be read in the 
following order: 

(a) Loading routine for program 

(b) Computer program 

Equilibrium program 
Rocket package excerpt 
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(c) Input data to be loaded: 

Case card 

r card: O/F, <j£F , or r (any one of the three may be 

used) 

Chamber-pressure card in Ib/sq in. abs 
Pressure-ratio schedule, as many as 25 pressure ratios 
Atoms cards (a f ,b f ,c f , . . . 

kf >^f jVf ^a^bx* c x , . . . j x ; 

(d) Packed vectors 

(e) Thermodynamic data as coefficients 

Items (a), (b) , and (c) are loaded by a loading routine, while 
(d) and (e) are read into storage by program read commands. 

(3) Ready the punch feed with blank cards. 

(4) Press computer reset key. 

(5) Press program start key. 

To aid in detecting errors , programmed stops have been Incorporated 
into the program. The following list gives the card number of the in- 
struction, in the SOAP listing, which produced the stop; the contents 
of the program register at the time of the stop; and the significance of 
the stop: 
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Card 

number 

Instruction 

Significance 

198 

HLT 0000 7766 

Thermal data out of order 

229 

HLT 0000 7777 

Elements plus condensed 
phases greater than 10 

325 

HLT 0000 8855 

Trying to process 8. molecule 
or condense! phase before 
all atoms done 

378 

HLT 0000 8866 

Picked up wrong thermal data 
for the product 

635 

NZU XXXX 8877 

Trying to process too many 
condensed phases 

1702 

HLT 0000 9955 

Overflow occvrred during con- 
struction of matrix 

1740 

HLT 0000 9966 

Overflow occurred in back 
solution 

1827 

HLT 0000 9988 

Some molecules ahead of some 
atoms 

1570 

NZU XXXX 9999 

End of program 
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APPENDIX D 


OPERATING INSTRUCTIONS FOR FROZEN COMPOSITION 

To carry out frozen-composition calculations it is necessary first 
to perform an equilibrium-combustion calculation. Thus, the initial 
operating instructions are identical to those of the Main Calculating 
Program (appendix C), with the exception that an additional instruction 
is included (with the input data ( 2 ) ( c ) ) that causes the program to 
stop when combustion calculations are complete. The instruction loads 
into storage location "FROZ" (1362) and is HLT 9999 9999 (01 9999 9999). 

The following instructions apply after combustion calculations are 
complete : 

(1) Run out any cards remaining in the read hopper. 

(2) Place cards in the read feed hopper so that they will be read 
in the following order: 

(a) Loading routine for program 

(b) Frozen-composition program 

(c) A transfer card to start program at 

(d) Thermodynamic data as coefficients 

(3) Press computer reset key. 

(4) Press program start key. 


"START" 
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APPENDIX E 


OPERATING INSTRUCTIONS FOR VECTOR AND PROPELLANT PROGRAM 

The following operating instructions are tor the Vector and Propel 
lant Program, which may be used to prepare input data for the Mam Cal- 
culating Program: 

(1) Prepare the appropriate alphabetic ATM and MOL cards. There 
must be one AIM card for each chemical element and one MOL card for eac 
other product of reaction. 

(2) Prepare Fn, PFn, and EFn cards for each fuel, and Xn, Pxn, 
and EXn cards for each oxidant in the equivalent reactant. 

(3) Set console: 

(a) Storage entry switches (70 1951 19 9/8 8±) ; an 8 in posi- 
tion 2 - punching of fuels, oxidants, anc percents and enthalpies 
of fuels and oxidants . 

(b) Set programmed switch to STOP. 

(c) Set half- cycle switch to RUN. 

(d) Set control switch to RUN. 

(e) Set display switch to PROGRAM REGISTER. 

(f) Set overflow switch to STOP. 

(g) Set error switch to STOP. 

(4) Place cards in read feed so that they will be read in the fol- 
lowing order: 

(a) Loading routine for program 

(b) Vector and Propellant Program 

(c) Input data to be read: 

BOP card (if desired) 

ATM cards 
MOL cards 

Fn, PFn, EFn, Xn, PXn, EXn ir any order 
END card 
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(5) Ready punch feed with blank cards* 

(6) Press computer reset key. 

(7) Press program start key. 

As an aid in the detection of errors/ the following programmed stops 
have been included in the program: 


Card 

number 

Instruction 

Significance 

337 

HLT 9999 1111 

Wrong symbol in AIM program 

342 

HIT 9999 2222 

Wrong symbol in BOP program 

351 

HLT 9999 3333 

Wrong symbol in EFn program 

364 

HLT 9999 4444 

Wrong symbol in END program 

378 

HLT 9999 5555 

Wrong symbol in EXn program 

388 

HLT 9999 6666 

Wrong symbol in Fn program 

395 

HLT 9999 7777 

Wrong symbol in MOL program 

404 

HLT 9999 8888 

Wrong symbol in PFn program 

414 

HLT 999S 9999 

Wrong symbol in PXn program 

424 

HLT 9999 0000 

Wrong symbol in Xn program 

460 

HLT 2222 8888 

Trying to process AIM card after MOL, Fn, 
or Xn cards 

466 

HLT 3333 7777 

Symbol for atom has more than two letters 

491 

HLT 4444 6666 

: More than 10 atoms processed 

500 

HLT 5555 5555 

Trying to process more condensed phases 
than are permitted 

506 

HLT 6666 4444 

Formula for reaction product has more than 
15 letters and digits 

509 

HLT 7777 3333 

No chemical formula on MOL card 

551 

HLT 9888 2222 

An element on a MOL card that did not appear 
on an ATM card 

616 

HLT 9988 9986 

More than 10 ATM cards 

665 

HLT 4321 4321 

Column equivalent for element not in table 

680 

HLT 2233 4455 

Subscript for element greater than 10 digits 

684 

HLT 5544 3322 

Subscript for element is 9 digits 

713 

HLT 8888 1111 

Enthalpy or percent greater than 10 digits 

784 

HLT 1111 1111 

Sum of percents not close enough to 100 




66 


APPENDIX P 

MAIN OPERATING PROGRAM (CHEMICAL EQUILIBRIUM) 

CHEMICAL equilibrium program, 

1 


1 1 

PROTECT 

ROCKET PACKAGE EXCERPT 

2 1 
3 1 
A 1 
6 1 

0 V LOADING availability table 

6 

SYN FROZ 

1362 


7 

SYN CHFK 

0499 


8 

SYN OR0P 

1904 


9 

SYN EXP F 

1850 


10 

SYN SORT 

1900 


11 

SYN PUNCH 

1950 


1? 

SYN CARON 

1862 


1 3 

SYN LINK 

1855 


14 

SYN TEMPI 

1048 

LOW TEMP 

1 5 

SYN TEMP2 

1049 

HIGH TEMP 

16 

REG A0961 

0980 

a t om data 

17 

PEG 61247 

1249 

two 3 ECU' 1 

1 8 

RFG C9050 

9050 


1 9 

REG 00001 

0001 


20 

PL A 0001 

0001 


21 

RLR 0037 

0049 


2? 

RLR 0087 

0099 


23 

BLR 0137 

0149 


24 

BLR 0187 

0199 


25 

BLR 0237 

0249 


26 

BLR 0287 

0299 


27 

BLR 0337 

0349 


28 

BLR 0387 

0399 


29 

BLR 0437 

0449 


30 

BLR 0487 

0499 


31 

PLR 0537 

0549 


32 

BLR 0587 

0599 


33 

PEG F1110 

1149 


34 

PEG G0001 

0015 

EXTRA H f 3 

35 

REG HO 98 7 

0999 

36 

PEG 11001 

1005 


37 

PEG J 1006 

1012 


38 

REG <1013 

1019 


39 

REG M9000 

9000 


40 

REG N9015 

901 5 


41 

PEG P 1 599 

1659 

PROD DAT/ 

42 

REG 01020 

1027 


43 

REG 91075 

1099 

PRES RATIO 

44 

REG T 0660 

0959 

HEAT DATA 

45 

REG U0050 

0058 


46 

REG Y0059 

0065 


47 

REG Z 1 340 

1349 

PRESS ROV 

48 

EOU PC° 

F 0001 


49 

EOU TEE 

F0002 


50 

EOU P 

F0003 


51 

EOU H 

F 0004 


5 2 

EOU I 

F0005 


53 

EOU M 

F0006 


54 

FQU CF 

F 000 7 


55 

FQU FPSIL 

F0008 


56 

FQU MACH 

F0009 


5 7 

FOU I VAC 

F0010 


58 

EOU CP 

F0011 


59 

EOU GAMMA 

F0012 


60 

FOU LMPT 

F0013 


6 1 

FQU L M TP 

F 00 1 4 


6? 

EOU S 

F0015 


63 

EOU NI 

F 00 1 6 


6 4 

FOU NT 

F 001 7 


66 

FOU NFPS 

c 001 8 


66 

FQU NC5TR 

F 00 1 9 


67 

e 0U CSTAR 

F0020 


fc 8 

FQU AW 

FOO? 1 


6 9 

FQU NAVJ 

FOO? ? 


? n 

EOU HSTR 

FC02 3 


7 1 

FQU A A Y 

PQ024 


77 

EOU HC 

F 0025 


7 *» 

EQU P E CMC 

F0026 


7i 

EOU NAWT 

F 0 0 2 7 


76 

EOU AWT 

F 002 8 


7 6 

EOU HSTR? 

F 0029 


77 

toi l P I 

FOO^O 


7 0 

-QU CONS! 

F0C31 


7 O 

r Qlt CONS? 

c 003 ? 


80 

FQU CON S3 

F 903 3 


81 

EQU CONS 4 

F0C34 


o ? 

FOU CONS 5 

F nC7 6 


a ■> 

FOU 5? 

r 0 03 6 


bi. 

FOU R 

F 003 7 


66 

ECU GC 

F0038 


3 4 

FOU IOENT 

F0039 
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87 

EQU ON E 

^0040 


8 P 

C 0IJ LNAAv 

C-0001 


e o 

FOU L N 

G 000? 


90 

FOU SO/q 

G 7 o 0 3 


91 

EQU ho/R 

G0004 


92 

EGU A OMOL 

G 0 0 0 5 


93 

EQU 30M0L 

G0006 


94 

EQU CO MOL 

G0007 


95 

FOU 00 MOL 

GOOOR 


96 

ECU EOMOL 

G 0 0 0 9 


97 

EQU c 0 MO L 

G001Q 


98 

EQU GO MOL 

G0C1 1 


99 

FQU MO MOL 

G001? 


i 0 7 

FQr j iriMOL 

G001? 


7 01 

EQU JO*-»OL 

G 0 0 1 4 


10? 

FQU PO 

G 0 0 1 5 


103 

EQU CODE 

9000 


104 

EQU SIR 

9001 


105 

EQU AT0M2 

9002 


1 06 

FOU T 

9003 


107 

EQU R V 000 

9004 


108 

EQU RV001 

9005 


109 

EGU R V 0 0 2 

9006 


1 10 

FQU RV003 

9007 

qr-'.i v r CT'"' 

U1 

EQU RV004 

9 008 

f x TE NT'S 

11? 

EQU RV005 

9009 

FROM 9005 

1 1 ? 

FQU RV006 

9010 

TO 9018 

1 14 

C QU RV007 

9011 


115 

EQU RV008 

9012 


116 

EQU RV009 

9013 


117 

EQU RV010 

9014 


1 18 

EQU RV011 

9015 


1 19 

EQU PV012 

9016 


120 

EQU RV013 

9017. 


121 

EQU R V 0 1 4 

9016 


12? 

EQU N I 

9019 


123 

FOU A 

9021 


124 

FQU B 

9022 


125 

FQU C 

9023 


126 

EQU D 

9024 


127 

EQU E 

9025 


128 

EQU F 

9026 


129 

EQU LN NI 

9027 


1 30 

EQU 1A 

9011 


131 

EQU 1R 

9012 


132 

EQU 1C 

9013 


133 

EQU ID 

9014 


1 34 

EQU IE 

9015 


1 35 

EQU IF 

9016 


1 36 

EQU LNNI 

9017 


137 

EQU TWO 

9028 


1 38 

FOU THREE 

9029 


139 

EQU FOUR 

9030 


1 40 

EQU CPR 

9031 


141 

EQU S CPR 

9032 


142 

FQU HR T 

9033 


1 43 

EQU S HR T 

9034 


1 44 

EQU SR 

9C35 


1 45 

EQU S SR 

9036 


1 46 

FQU MINFX 

9045 


1 47 

EQU MINCO 

9046 


1 48 

FQU MAXCO 

9047 


149 

C QU VARRL 

9048 


1 50 

FQU T EM 1 

9049 


151 

FQU TEMPO 

9059 


152 

EQU MOVE 1 

9058 


153 

EQU M0VE2 

9059 


154 

EQU BASIC 

9050 


155 

EGU INDXA 

three 


156 

EQU INDXC 

FOUR 


157 

FOU SI 

C0001 


1 58 

p QU ELM I N 

C0001 


] 5 9 

FOU NOROW 

coooo 


160 

SYN R DR 

1193 


16] 

SYN PC 

C O0OO 


16? 1 ' 
163 1 

164 BEGIN 

RAU LN7 


SET TO 

165 

STL CQMEX 


COMBUSTION 

166 

STD PCPCT 


FIRST PC 

167 

LDD 

EXP E 

OVER P 

168 

STU T 


T FROM LNT 

169 

LDD T o A T A 

PCP 1 


170 1 

171 1 

IF CQMEX 

IS ZERO WE 

ARE DOING 

17? 1 

COMBUSTION otherwise expansion 

173 1 

COMEX EC 

’ALS MINUS 

unity for 

174 1 

THROAT A.4D PLUS UNI 

TY FOR 


1?5 1 EXPANSION 


176 1 


177 1 


0000 

0107 

0114 

0020 

0023 

0031 


60 0002 0107 

20 0111 0114 
2 <* 0017 0020 
69 0023 1850 

21 900 ? 0031 
69 0034 0637 



68 


178 1 

179 1 

180 1 
181 
182 
183 

1 84 

185 

186 
187 
108 
1 89 

190 

191 

192 

193 

194 

195 
1 96 

197 

198 

1 99 
200 
201 
202 
203 
704 

2 0 5 
206 


read thermal data routine for 

GENERAL ROCKET PERFORMANCE 


CALCULATION 


TDATA 

R A A 

0000 




003A 


RAC 

0000 


TD001 


Q64C 

TD001 

RCD 

BASIC 


BELL 

READ CARD 

0646 

BASIC 

ral 

9051 


RDB 

ARE WE 

9050 

RDB 

SLT 

0004 



GOING TO 

1 193 


STU 

9051 



STORE IN 

0103 


RAU 

P0001 

A 


COPRECT 

0161 


SLT 

0001 



PLACE 

0153 


SRT 

0001 




0109 


SUP 

9051 




0115 


NZU 

TD005 




0073 


LDD 

T 0008 

c 


YES STORE 

0028 


STD 

9058 



THERMAL 

0070 


SET 

9051 



DATA 

0026 


SBB 

T 0001 

c 



008 I 


AX A 

0002 




Oil' 


AXC 

0010 


TD001 


001" 

TD005 

HLT 

0000 


7766 


002 < 

BELL 

RAU 

9051 



WAS THE 

104-. 


FSB 

T 



DATA JUST 

020 3 


BM1 

TDATA 



READ IN 

0033 


RAU 

T 



FOR THE 

1037 


FSB 

9050 



CORRECT 

0645 


BM I 

TDATA 



INTERVAL 

0025 


SET 

9050 




0029 


SBB 

TEMPI 


UNPAK 


0084 


207 1 


208 1 
709 1 
210 1 


UNPACKING ROUTINE FOR GENERAL 
ROCKET PERFORMANCE CALCULATION 


211 1 
212 1 

213 1 

214 1 


ATOM1 IS THE NUMBER OF THE 
ELEMENTS IN THE SYSTEM AND IS 
IN THE I ADDRESS POSITION 


215 1 

216 1 

717 1 

718 1 

719 1 


SYS IS THE SUM OF ELEMENTS 
AND CONDENSED phases IN THE 
I ADDRESS POSITION AND MUST 
«E LESS THAN OR EQUAL TO TEN 


220 1 
721 1 
72? 1 
227 1 


SY STM IS GENERATED FROM SYS 
0 Y SHIFTING TO THE D ADDRESS 
POSITION 


224 1 




226 

UNPAX 

RAU 

UNITY 

226 


SLT 

0001 

227 


SUP 

SYS 

228 


BM I 


229 


HLT 

0000 

2 30 

upooo 

RAU 

SYS 

231 


SLT 

0004 

232 1 




233 


STU 

SYSTM 

234 


RAL 

SYS 

235 


ALO 

UNITY 

236 


AU° 

8 001 

237 


AUP 

8002 

238 


STL 

SYS+1 

239 


STU 

S v S + ? 

?40 


RAIJ 

ATOMl 

2 4 1 


SUP 

UNITY 

24? 


STU 

ATM-1 

243 


STL 

S CPR 

2 44 


STO 

S HRT 

245 


STD 

S SR 

2 46 


STD 

P 

247 


RAL 

STORE 

248 


SLO 

SYSTM 

249 


LDD 

UP033 

230 


SDA 

UP033 

251 


LDD 

THC24 

25? 


SDA 

TH024 

253 


LDD 

TH035 

254 


SDA 

TH035 

755 


RAU 

SYS 

256 


SUP 

ATOMl 

257 


STU 

COUNT 

238 


STD 

SOLID 

2 39 


SLT 

0004 

260 


PSL 

8003 

26 1 


ALO 

STORE 

26? 


LDD 

W007 

263 


SDA 

V^007 

?6 


LDD 

VM048 

265 


SDA 

V M 048 

266 


RAU 

LNT 

767 


LDD 

UD001 


IS SYS 0101 

GREATER 0159 

THAN TEN 0H5 

UP000 01:3 

7777 00 6 

GENERATE 00 "7 

I ADDRFSS 013 

CONSTANTS 
SYS+1 AND 00 3 

SYS+2 ANO 061 

ATM-1 ALSO 02 3 

D ADDRESS 02 >9 

CONSTANT 00 >7 

SYSTM FROM 00 r 5 

SYS AND 0012 

ATOM1 0619 

0 6 [ *7 

0:19 

CLEAR THE 01 L7 
SUMMATION 00 ?4 
STORAGES 0010 
00 16 

SET STORE 0215 
ORDER FOR 02 ?3 
SUBSCRIPT 0643 
06 49 

SET DATA 1199 
ADDRESS OF 0135 
TH024 AND 0155 
TH035 0211 

SET SOLIDS 0261 
COUNTER 0323 

1 C 4 7 
0205 

SET 0311 

DATA 0(21 

ADDRESS OF 0129 
VM007 AND 0-73 
VM048 TO 0179 
RV011B 0729 

LESS SOLID 0035 
GET T C RQM 0085 
EXP E LNT 0 57 


80 0000 0640 
88 0000 0646 
70 9050 1046 
65 9051 1193 
35 0004 0103 
21 9051 0161 
60 ‘3599 0153 
35 0001 0109 
30 0001 0115 
11 9051 0073 
44 0027 0028 
69 6667 0070 
24 9058 0026 

27 9051 0081 

28 6660 0113 
50 0002 0019 
58 0010 0646 
01 0000 7766 
60 9051 0203 
33 9003 0033 
46 0034 1037 
60 9003 0645 
33 9050 0025 
46 0034 0029 

27 9050 0084 

28 1048 0101 


60 0104 0159 
35 0001 0165 
11 0018 0123 
46 0076 0077 
01 0000 7777 
60 0018 0173 
35 0004 0083 

21 0638 0641 
65 0018 0223 

15 0104 0209 
10 8001 0067 

10 800? 0075 

20 0079 0032 

21 0036 0639 
60 0642 0647 

11 0104 0259 

21 0164 0117 

20 903? 0024 
24 9034 0030 
24 9036 0086 
24 1H2 0215 

65 0068 0273 

16 0638 0643 
69 1196 0649 

22 1196 1199 
69 010? 0105 
22 0102 0155 
69 0100 0211 
22 0108 0261 
60 0018 0323 
11 0642 1047 

21 0152 0205 
24 0158 0311 
35 0004 0021 

66 8003 0129 
15 006 R 0373 
69 01?6 0179 

22 0126 0229 
69 008? 0035 
22 008? 0085 
60 nOO? 0157 
69 0110 1850 


E-417 



E-417 


69 


26 8 


IJP001 

ST 11 

T 





0110 

21 

9003 

0167 

269 



lod 

AT0M1 




SET ATOM 

O 1 67 

j9 

064? 

1045 

2 7 0 



STD 

ATOM? 




COUNTER 

104 5 

24 

9002 

0151 

27 1 

1 












?7? 

] 



INDEX ACCUMULATOR C 

WILL RE 





? 7 3 

1 


USED FOP 

PICKING 

UP 

THE 





? 7 4 

] 


thermal 

DATA IN 

THE 

FUTURE 





273 

1 












276 



RAC 

nooo 





0151 

80 

0000 

0207 

277 



PAA 

001? 





0207 

80 

001? 

0163 

278 



PAU 

WfPFl 


8003 



0163 

60 

0016 

8003 

279 


8003 

STL 

9007 

A 

UP003 


CLFAR THE 

8003 

20 

9207 

0078 

280 


UP003 

M2 A 

UP 00 5 


UP007 


LAST 13 

00 7 8 

40 

0131 

0132 

261 


UP 00 5 

S X A 

0001 


8003 


PQS I T IONS 

0131 

5 1 

00 01 

8003 

282 


UP007 

RAB 

0011 


UP009 


OF FIRST 

0132 

82 

0011 

1038 

283 


UP009 

SET 

9007 




12 BANDS 

1038 

27 

9007 

1043 

284 



ST3 

0037 

A 



FOR MATRIX 

1043 

29 

2037 

1040 

285 



MZB 



UPO 12 



1040 

42 

1247 

0644 

286 



SXB 

00C1 





1243 

53 

0001 

1299 

287 



A X A 

0050 


UP009 



1299 

50 

0050 

1038 

2 8 P 


UPni? 

S F T 

9007 




CLEAR T HF 

0644 

27 

9007 

1 399 

2 89 



STB 

HD001 




H P EG I ON 

1399 

? 9 

0987 

1190 

290 



PAA 

0000 


UPO 13 



1190 

80 

noon 

1246 

291 


U P n 1 3 

PAR 

0013 




CLEAR 14 

1 ?46 

82 

001 3 

020? 

292 



PAU 

WIPE2 


8003 


CORF LOCA 

020? 

60 

0255 

8003 

293 


8003 

STL 

RV001 

R 

U p 0 1 5 


FOR ROW 

8 00 3 

?0 

94C 5 

0066 

294 


UPO 1 5 

NZB 

UPC 1 7 


UPO 1 9 


VECTOR 

0066 

42 

0069 

0120 

295 


UP01 7 

SXB 

0001 


8003 



0069 

53 

0001 

8003 

296 

1 












297 

1 



INDEX ACCUMULATOR A 

WILL BE 





298 

1 


USED FOR 

PICKING 

UP 

THE 





299 

1 


CURRENT 

PRODUCT 

CODE IN FUTURE 





3 0 

1 












301 

1 


data address OF 

UPO 33 HAS PF F N 





302 

1 



SET TO 

PV011R MINUS 

KYSTM AT 





303 

1 



START OF 

UNPAK ROUT IMF 





304 

1 












305 


UPO 1 9 

pal 

P0001 

A 



STORE PROD 

0170 

65 

3 599 

0253 

306 



NZE 



MATPX 


CODE IF 

0253 

45 

0106 

0257 

307 



SLT 

0001 




HERE IF NO 

0106 

35 

0001 

0213 

3oe 



NZU 

UP021 




GO CLEAN 

0213 

■+4 

02 17 

0 1 18 

309 



SR T 

0001 




UP MATRIX 

0118 

30 

0001 

0125 

3 10 



STL 

CODE 


UP024 



0125 

20 

9 000 

0182 

311 


UP021 

SRT 

0001 




PASS UP 

0217 

30 

0001 

0423 

312 



STU 

T 0008 

c 



SOLID AND 

0423 

2 1 

6667 

0170 

313 



STO 

T0010 

c 



SET N I AND 

0170 

24 

666R 

002? 

3 1 4 



A X A 

0002 




DELTA] TO 

002? 

50 

000 7 

0 1 ?fi 

3 15 



AXC 

0010 


UPO 1 9 


ZERO 

0128 

58 

on io 

0120 

316 


c 

a 

u 

RAU 

PC002 

A 



GAS OR 

018? 

60 

3600 

0 7 05 

317 



STL 

CHECK 




CONDENSED 

0305 

20 

C 3 09 

0112 

310 



HM I 



UP037 


SET ONE UR 

Oil? 

46 

0265 

0116 

319 



PSU 

8003 


UP029 


LEAVE ZERO 

0 7 6 5 

6 1 

«003 

0473 

320 


UP029 

SRT 

0002 


UP030 


IN RV011 

0473 

30 

00 0 2 

0279 

32 1 


UP030 

SUP 

8003 





0279 

1 1 

8007 

1 1 H 7 

32? 



STD 

TFMPO 





1187 

24 

90 c o 

1 2 97 

32 3 



A UP 

ATOM 2 




CHFCK ATOM 

1 ?97 

1 0 

9 00 2 

0 201 

324 



NZU 



UP031 



0201 

A 4 

0355 

0156 

325 



HLT 

0000 


8855 



0355 

01 

noon 

8855 

326 


UP031 

SLT 

0001 





0156 

35 

00C1 

0263 

327 



ALO 

51 




FLOAT AND 

0 ? 6 3 

15 

0166 

0071 

326 



RAB 

8003 


UR033 


STORE T HE 

0071 

82 

8003 

1196 

329 


UPO 33 

STL 

RV01 1 

R 



SUBSCRIPT 

1 196 

20 

94 1 6 

0154 

330 



RAU 

TEMPO 




GET NEXT 

0154 

60 

9059 

0361 

33] 



NZU 

UP029 




SUBSCRIPT 

0361 

44 

0473 

0216 

332 



AX A 

0002 


THERM 



0216 

50 

000? 

007? 

3 33 

1 












3 34 

1 



PREPARE 

FOR NEXT 

PRODUCT THEN 





735 

1 



GO TO THE THERMAL ROUTINE 





736 

1 












3 37 


UP 0 7 7 

LOD 

ONF 




SET ONE IN 

0116 

69 

1 1 49 

025? 

3 38 



STD 

RV01 1 




RV011 

0252 

24 

901 5 

0208 

3 30 



SRT 

0002 




IS IT ONE 

0208 

30 

000? 

0315 

340 



NZU 

UP030 




element 

0315 

44 

0279 

0220 

341 



STL 

TEMPO 




YES IT WAS 

0220 

20 

9059 

0178 

342 



SLT 

0001 




IS IT AN 

0170 

35 

0001 

0135 

^•43 



RAU 

8002 




ATO w 

0135 

60 

aoc? 

1393 

344 



SUP 

UNE 





1393 

1 1 

12 96 

0251 

7 4 5 



NZU 



UP038 


IT WAS A 

0 ? 5 1 

44 

04 0 5 

0206 

3 46 



PAL 

Tpmpo 


UP030 


MOLECULR 

0405 

65 

9059 

0279 

^ 47 


UPO ? 8 

PAU 

AT0M2 




IT WAS AN 

0 ' 5 0 6 

60 

90 0? 

0717 

3 48 



SUP 

UNITY 




ATO M 

0317 

1 1 

0104 

0359 

7 49 



STD 

CHECK 





0359 

24 

0309 

016? 

350 



STU 

A TOM 2 





0162 

? 1 

900? 

0119 




ral 

T c MPO 





0119 

65 

9059 

0127 

752 



STU 

TEMPO 


UP031 



0127 

2 1 

9059 

0156 

353 

1 












754 

1 



CONSTANTS FOP UNPACKING 





3 5 6 


STORF 

CO 

RV011 

p 

0000 



0068 

00 

9415 

0000 

3 36 


WlPPl 

STL 

9 00 7 

A 

UP003 



0016 

20 

9207 

0078 

^ 6 7 


W I P c 2 

STL 

PVC01 

a, 

UP 01 5 



0255 

20 

940 5 

0066 

3 58 


OM c 

10 

nor a 


PC 5 1 



1 ’ 49 

1 0 

nOOO 

0051 



70 


759 


UNITY 

00 

0000 0001 


0104 

00 

nooo 

0001 

360 


51 

00 

0000 0051 


0166 

00 

0000 

0051 

361 


UN r 

10 

0000 0000 


1296 

10 

0000 

0000 

76? 

1 









363 

1 









364 

1 



THERMAL ROUTINE FOR 

GENERAL 





36 5 

1 



ROCKET PERFORMANCE 

CALCULATION 





366 

1 









367 

1 



THF DATA ADDRESSES 

OF TH02A 





760 

1 



and tho?5 should be 

SET TO 





369 

1 



R VO 1 1 B MINUS SYSTM 

AT START OF 





370 

1 



UNPACKING ROUTINE 





371 

1 









37? 


THFPM 

SET 

9020 

PICK UP 

OO 7 ? 

27 

9020 

0177 

373 



LBP 

T 000 1 C 

THERMAL 

01 '7 

08 

6660 

0363 

374 

1 




DATA 





376 



RAU 

9020 

IS this 

0363 

60 

9020 

0121 

376 



SUP 

CODE 

THE RIGHT 

0121 

1 1 

9000 

0329 

377 



NZU 

TH003 

DATA 

0329 

44 

0133 

0134 

378 



HLT 

0000 8866 


0133 

01 

0000 

8866 

379 


TH003 

RAU 

POOOO A 


0134 

60 

3598 

0303 

380 



RM I 

THOO 7 


0 3 03 

46 

0266 

0307 

381 

1 









38? 

1 



1 F DFALING with condensed 





383 

1 



PRODUCT SET LN NI TO 2FP0 





304 

] 









385 



RAU 

LN Nl 

LN NI IS 

02-6 

60 

9027 

0413 

386 



STL 

LN Nl 

REALLY NI 

04 : 3 

20 

9027 

0270 

307 



STU 

NI TH009 


02 ’0 

2 1 

9019 

0227 

388 


TH007 

RAU 

LN NI 

GET NI 

0 3 0 7 

60 

9027 

0365 

399 



LDD 

EXP E 

FROM LN NI 

0365 

69 

0168 

1050 

390 



STU 

NI TH009 


02 68 

21 

9019 

0227 

391 


TMO09 

SET 

TWO 

TWO 3 FOUR 

oin 

27 

9028 

0232 

392 



LDP 

BO 00 1 

ON CORE 

02 32 

09 

1247 

0100 

393 



RAU 

D 

CALCULATE 

0100 

60 

9024 

0357 

394 



CMP 

T 

C°R 

0357 

39 

9003 

0160 

395 



FAD 

C 


0130 

3? 

90 2 

1039 

396 



FMP 

T 


10 9 

39 

9003 

104? 

397 



FAD 

B 


1 O 1 * 2 

32 

9022 

0171 

398 



FMP 

T 


Oil 

39 

9003 

0074 

399 



FAD 

A 


00 r 4 

32 

9021 

0353 

400 

1 









401 

1 



S CPR S HRT S SR 

MUST BE 





402 

1 


CLEARED AT MATRIX CLEARING 





403 

1 









404 



STU 

CPR 


03 3 

2 1 

9031 

0411 

405 



FMP 

NI 

SUM CPRXNI 

04 1 

39 

9019 

0214 

406 



FAD 

S CPR 

IN CORE 

02 4 

32 

903? 

1447 

407 



STU 

S CPR 


1 4*+ 3 

21 

9032 

0301 

408 



RAU 

D 

calculate 

0301 

60 

9024 

0409 

409 



FDV 

FOUR 

HRT 

040 9 

34 

903H 

0212 

A 10 



FMP 

T 


02 2 

39 

9003 

0415 

411 



STU 

TEMPO 


04 5 

21 

9069 

0523 

412 



RAU 

C 


os; 3 

60 

9023 

0181 

413 



FDV 

THREE 


OIL 1 

34 

9029 

0184 

414 



FAD 

TFMPO 


010 4 

32 

9069 

0463 

415 



FMP 

T 


046 3 

39 

9003 

0266 

4 1 6 



STU 

TEMPO 


02! 6 

21 

9059 

0573 

4 1 7 



RAU 

B 


05' 3 

60 

902? 

0231 

410 



FDV 

TWO 


0?: 1 

34 

9028 

0234 

4 1 9 



FAD 

TEMPO 


02' 4 

32 

9059 

0513 

420 



FMP 

T 


05: 3 

39 

9007 

0316 

421 



STU 

TEMPO 


03: 6 

2 1 

9059 

0623 

4 22 



RAU 

F 


06; 3 

60 

9025 

0281 

423 



FDV 

T 


0 2! 1 

34 

9003 

0284 

424 



FAD 

TEMPO 


02! 4 

32 

9059 

0563 

425 



FAD 

A 


05! 3 

32 

9021 

1493 

426 



STU 

HRT 


1 4S 3 

21 

9033 

0351 

427 



FMP 

NI 

SUM HRTXNI 

03! 1 

39 

9019 

0204 

428 



FAD 

S HRT 

IN CORE 

02( 4 

32 

9074 

0183 

429 



STU 

S HRT 


0 7 8 3 

21 

9034 

1041 

4 30 



RAU 

D 

CALCULATE 

10* 1 

60 

9024 

1449 

431 



FDV 

THREE 

SR 

14< 9 

34 

9029 

0302 

43? 



FMP 

T 


03( 2 

39 

9003 

0455 

433 



STU 

TEMPO 


04! 5 

21 

9059 

0613 

434 



RAU 

C 


0613 

60 

9023 

0221 

435 



FDV 

TWO 


02; 1 

34 

90 2 8 

0124 

4 36 



FAD 

tempo 


0124 

32 

9059 

0403 

437 



FMP 

T 


04 C 3 

39 

9003 

0306 

4 38 



FAD 

R 


03C 6 

32 

90? 2 

0185 

439 



FMP 

T 


0U5 

39 

900? 

1188 

440 



STU 

tempo 


lies 

21 

9069 

1 195 

441 



RAU 

A 


11 s 5 

60 

9021 

0453 

44? 



FMP 

LNT 


0463 

39 

000? 

0352 

443 



FAD 

Tcvpo 


036 ? 

3? 

9059 

0331 

444 



FAD 

F 


037 1 

32 

9026 

0461 

445 



PSP 

LN NI 

SR MINUS 

046 1 

33 

9027 

1191 

446 



STU 

SR 

LN PI 

1191 

21 

9035 

1499 

447 



FMP 

NI 

SUM SR 

1499 

39 

9019 

0402 

448 



FAD 

S SR 

LESS LN PI 

04C 2 

32 

9036 

0381 

449 



STU 

S SR 

X Nl CORE 

0381 

21 

9036 

1189 

450 



RAU 

CHECK 

IS IT ATOM 

1189 

60 

C 3 09 

1063 


E-417 



E-417 
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451 


NZ'J TWQ23 


45? 

1 



4 5 3 

1 

R r G 1 0 N A is permanent storage 

4 54 

1 

O c atom gas thermal properties 

45 5 

1 



456 


RA'J HPT 

D ERMANENT 

457 


STU A 000 1 P 

STORAGE OF 

45 0 


PAL SR 

HRT AND SR 

4 69 


STL A0011 P 

LESS LN PI 

460 


STU T 0009 C 

OF GASEOUS 

461 


STD T 001 C C THC44 

ATOMS 

46? 

TH023 

RAU ATM-1 

SET MULT 

4 6 3 


RAB 8003 

FREQUENCY 

464 


S T L TEMPO 

FOR 01 

465 


SE T 9050 


46 6 


LRB A 000 1 TH024 


467 

rnr?4 

PA'J RV011 P 


460 


NZU TH02 7 


469 


p MP 9050 P 


470 


FAD TEMPO 


471 


STU TEMPO TH027 


472 

TH027 

NZB 7H031 


473 


5XB 0001 TH024 


4 74 

TH031 

RSU TEMPO 


475 


EAD HR T 


476 


STU RV012 

01 IN 9016 

477 


STD TEM 1 

AND TEM 1 

478 


STD T 0009 C 

AND T REGN 

479 


RAU ATM-1 

SET MULT 

4 8 0 


PAR 8003 

FREQUENCY 

4 01 


SET 9050 


4 02 


IRB A0011 TH035 


483 

TH035 

RAU RV011 B 


484 


NZU TH039 


4 85 


FMP 9050 B 


486 


FAD TEM 1 


487 


STU TEM 1 TH039 


408 

TH039 

NZB TH043 


489 


SXB 0001 TH035 


490 

TH043 

RAU TEM 1 


491 


FSB SR 

DELTA I IN 

492 


STU R V 0 1 3 

9017 

493 


RSU 0003 

STORE NEG 

494 


STU T0010 C TH044 

DEL T A I IN 

495 

TH044 

AXC 0010 

T REGION 

496 


RAU HRT 

H OVER R 

497 


FMP T 

IN HR 

498 


STU HR 


499 


RAU POOOO A 


500 


BMI TH045 


501 


RAU SR 

S PRIMED 

50? 


ESB ONE TH050 

OVER R 

503 

TH045 

RAU SP TH050 


504 

TH050 

STU SIR TH051 

IN SIR 

505 

TH051 

RAU COMEX 


506 


NZU EXPAN COMB 


507 

COMB 

RAU HR 


508 


STL RVOOO TH047 


509 

expan 

RAU SIR 


510 


LDD HR 


511 


STD RVOOO TH047 


51? 

TH047 

STU RV014 MULT 


513 1 




314 1 


CONSTANTS FOP THERMAL ROUTINF 

515 

ONE 

10 0000 0051 


516 

UNITY 

00 0000 0001 


517 

B0001 

20 0000 0051 

TWO 

510 

B0002 

30 0000 0051 

THREE 

519 

B0003 

40 0000 0051 

FOUR 

520 1 




521 1 




52? 1 


VECTOR MULTIPLICATION ROUTINF 

523 1 


FOR GENERAL ROCKET 

performance 

524 1 


CALCULATION 

525 1 




526 1 


WHEN THERE ARE N EQUATIONS THE 

527 1 


NTH APPEARS IN RAND 1 AND THE 

528 l 

529 1 


1ST APPEARS IN RAND N 

530 1 


IN THIS ROUTINE INDEX A WILL 

5 31 1 


TRACK THE CURRENT 1 

EQUATION B 

5 32 1 


WILL TRACK THE CURRENT 

533 ] 


SUBSCRIPT C WILL 

TRACK THE 

5 34 1 
535 1 


NUMBER OF MULTIPLICATIONS 

536 1 


the SOLIDS COUNTER 

SHOULD BE 

5 37 1 


SET TO ITS MAXIMUM 

value prior 

5 38 1 
539 1 


TO CLEARING MATRIX 

IOC AT IONS 


1063 44 0 26 7 0218 


0267 60 9033 0175 

0U5 21 4961 0264 

0264 65 9033 0271 

0271 20 4971 0174 

0174 21 6660 0321 

0321 24 6669 0122 

0218 60 0164 0169 

0169 02 8 00' 1 0220 

C 22 8 20 9059 0136 

0136 27 9050 1241 

1241 06 0961 0102 

0102 60 9415 0459 

0**59 44 116? 0314 

1163 39 9450 0?66 

0366 32 9039 1245 

1245 21 9059 0314 

0314 42 0317 0266 

0317 53 0001 0102 

0268 61 9059 0225 

0225 32 9033 0505 

0505 21 9016 1213 

1213 24 9049 0219 

0219 24 666“ 0371 

0371 60 0164 0269 

0269 B? 800? 0278 

0270 27 9050 0233 

0233 08 0971 0100 

0108 60 9415 0465 

0465 44 0 3 1 Q 0320 

0319 39 9450 0172 

0172 32 9049 0401 

0401 21 9049 0320 

0320 42 1073 0224 

1073 53 0001 0108 

0224 60 9049 0431 

0431 33 9035 0511 

0511 21 9017 0369 

0369 61 8003 0277 

0277 21 6669 0122 

0122 58 0010 0328 

0328 60 9033 0235 

0235 39 9003 1238 

1238 21 1192 1295 

1295 60 3598 0503 

0*03 46 0356 0407 

0407 60 9035 0515 

0515 33 1149 0275 

0356 60 9035 0275 

0275 21 9001 0283 

0263 60 0111 0565 

0565 44 0419 0370 

0370 60 1192 1197 

1197 20 9004 0254 

0419 60 9001 0327 

0327 69 1192 1395 

1395 24 9004 0254 

0254 21 9018 0561 


1149 10 0000 0051 

0104 00 0000 0001 

1247 20 0000 0051 

1248 30 0000 0051 

1249 40 0000 0051 
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5*0 1 
5*1 1 
5*2 1 
5*3 1 
5** 1 
5*5 1 

5*6 MULT 
5*7 VM001 

5*8 
5*9 

550 

551 

552 1 

553 1 
55* 1 

555 

556 

557 

558 

559 

560 1 

561 VM002 

562 

563 
56* 

565 VM007 

566 

567 

568 

569 

570 


571 

VM013 

572 

573 
57* 

575 

576 

VM017 

577 

578 

VM021 

579 

580 

VM023 

581 

58? 

583 

58* 

VM027 

585 

506 

587 

VM101 

588 

589 

590 

591 

592 

593 
59* 

VM028 

595 

596 

597 
5 9B 
599 

VM031 

600 

601 

VM035 

602 

603 

VM 10* 

60* 

605 

606 
607 

1 

608 

1 

609 

1 

610 

1 

6 1 i 

VM036 

612 

613 

61* 

615 

616 

VM037 

617 
6 1 8 

619 

620 
621 

VMH39 

622 

62? 

VMO* 1 

62* 
625 
62 6 

627 

628 

1 


THE DATA ADDRESSES OF VM007 
AND VM0A8 SHOULD BE SET TO 
RV011B MINUS SOLID AT THE 
START OF THE UNPACKING ROUTINE 


LDD 8005 VM001 

STD INDXA 

LDD 8007 

STD INDXC 

RAU POOOO A 

BMI VM042 


STORE I NDX 
A AND C 
FOP THE 
TIME BEING 
IS PRODUCT 
CONDENSED 


GASEOUS PRODUCT PROCESSING 


RAU 

SYS+1 



MPY 

50 



RA A 

8002 



RSU 

AT0M1 



RA8 

8003 


VM002 

RAC 

8003 



LDD 

SOLID 



$XC 

8001 



sxc 

0002 


VM007 

RAU 

RV011 

B 


NZU 



VM023 

FMP 

NT 



STU 

TEMPO 



SET 

9037 



ldb 

0037 

A 

VMO 1 3 

RAU 

RV013 

C 


NZU 



VMO 1 7 

FMP 

TEMPO 



FAD 

90*9 

C 


STU 

9 0*9 

c 

VMO 1 7 

NZC 



VM021 

AXC 

0001 


VMO 1 3 

SET 

9037 




STB 

0037 

A VM023 

AXB 

0001 


NZB 


VM027 

RAU 

8006 


SXA 

0050 

VM002 

RAA 

0000 


R AB 

0001 


RAU 

R VO 1 * 

VM101 

NZU 


VM10* 

FMP 

N I 


STU 

TEMPO 


RAU 

SYS + 2 


RSC 

8003 


SET 

9037 


LDB 

0037 

A VM028 

RAU 

RV013 

C 

NZU 


VM031 

FMP 

TEMPO 


FAD 

90*9 

C 

STU 

90*9 

c VM031 

NZC 


VM035 

AXC 

0001 

VM028 

SET 

9037 


STB 

0037 

A VM 10* 

NZB 


VM036 

SXB 

0001 


RAA 

0950 


RAU 

RVOOO 

VM101 



SET INDXA 
TO 5YS+1 
TIMES 50 
SET INDEXB 
TO ATOM 
NEGATIVED 
SET I NDEXC 
TO INDEXB 
LESS SOLID 
LESS TWO 
IS IT ZERO 
SUBSCRIPT 
SUBSCRIPT 
TIMES N I 
BRING IN 
EQUATION 


PERFORM A 
multiply 
AND ADD 
ANY MORE 
TO MULTPLY 


ANY MORE 
EQUATIONS 


COMPLETE 

both the 

ENTROPY 
AND THE 
ENTHALPY 
DURING THE 
EXPANSION 
SET INDXC 


00 THE 
LAST 

EQUATION 
WHICH IS 
ENTHALPY 
OR ENTROPY 


DURING 

EXPANSION 

ENTHALPY 

EQUATION 

IS IN 095< 

BAND 

ALSO FILL 
IN THE 
PRESSURE 
EQUATION 


SUM PI 


0561 69 8005 0367 
0367 2* 9029 1173 
1173 69 8007 0379 
0379 2* 9030 0285 
0285 60 3598 0553 
0553 *6 0*06 0*57 


0*57 

60 

0079 

0333 

0333 

19 

0186 

0*56 

0*56 

80 

8002 

0615 

0615 

61 

06*2 

1297 

1297 

82 

8003 

0506 

0506 

88 

8003 

036* 

036* 

69 

0158 

0611 

0611 

59 

8001 

0*17 

0*17 

59 

0002 

0126 

0126 

60 

9*15 

0383 

0383 

** 

1237 

1288 

1237 

39 

9019 

12*0 

12*0 

21 

9059 

1397 

1397 

27 

9037 

0*52 

0*52 

09 

2037 

1290 

1290 

60 

9617 

1**7 

1**7 

** 

0*51 

0502 

0*51 

39 

9059 

030* 

030* 

32 

96*9 

0*33 

0*33 

21 

96*9 

0502 

0502 

*8 

0555 

0556 

0555 

58 

0001 

1290 

0556 

27 

9037 

1061 

1C61 

29 

2037 

1288 

1288 

52 

0001 

10** 

10** 

*2 

1*97 

06*8 

1*97 

60 

8006 

0605 

0605 

51 

0050 

0506 

06*8 

80 

0000 

035* 

035* 

82 

0001 

0210 

0210 

60 

9018 

0*67 

0*67 

** 

0*21 

0222 

0*21 

39 

9019 

027* 

027* 

21 

9059 

0*81 

0*81 

60 

0036 

, 1291 

1291 

B9 

i 8003 

i 0150 


0150 27 9037 0655 
0655 09 2037 1390 
1390 60 9617 15*7 
15*7 ** 0501 0552 
0501 39 9059 0*0* 
0*0* 32 96*9 0*83 
0*83 21 96*9 0552 
0552 *8 1055 0606 
1055 58 0001 1390 
0606 27 9037 1161 
1161 29 2037 0222 
0222 *2 0325 0176 
0325 53 0001 0531 
0531 80 0950 1287 
1287 60 900* 0*67 


0176 60 0036 1391 
1391 20 9015 1198 
1198 89 8003 0656 
0656 27 9037 1211 
1211 09 0087 1**0 
1**0 60 9617 1597 
1597 4* 0551 0602 
0551 39 9019 0*5* 
0*5* 32 96*9 0533 
0533 21 96*9 0602 
0602 *8 1105 1056 
1105 58 0001 1**0 
1056 27 9037 1261 
1261 29 0087 1*90 
1*90 60 9019 1697 
1697 32 111? 1239 
1239 21 1112 1065 


VMQ61 


E-417 


CA-10 E-417 
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629 1 

630 1 

631 1 
63? 1 

633 1 

634 VW042 

635 

636 1 

637 1 

638 1 

639 1 

640 

641 

642 

643 

644 

645 
64fe 
647 
640 1 
649 

6 50 
651 
65? 

65? 1 

654 

655 

656 

657 

658 

659 

660 
66 1 
66 ? 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 
6 74 

675 

676 

677 

678 

679 1 

680 1 
68 1 1 
68? 

683 1 

684 1 

685 1 

686 1 
607 1 
688 1 

689 

690 

691 
69? 

693 
6 94 
69* 

696 

6 97 

6 98 

699 1 

700 MCO 07 


701 

70? 

703 

704 

705 

706 1 


MC^ro 


CONDENSED PRODUCT PROCESSING 

COUNT IS NUMBER OF UNPROCESSED 
CONDENSED PRODUCTS 

RAU COUNT 

NZU 8877 


ARE WE TRYING TO PROCESS TOO 
MANY CONDENSED PHASES 


0406 60 0152 0507 

0507 44 13H 8877 


R5R 8003 
ALO 8003 
SUO UNITY 
ALO 8001 
STU COUNT 
RAU 8002 
MPY 50 
RAA 8002 

SET RV001 
STB 0037 A 
RAU RV014 
STU 0047 p 


FMP 

FAD 

STU 

RAU 


N I 

0047 

0047 

COMEX 


SET THE 

INDICES TO 

STORE 

CONDENSED 

PHASE 

EQUATION 

AND ITS 

ENTHALPY 

OR ENTROPY 

STORE THE 

EQUATION 

STORE THE 

ENTHALPY 

OR ENTROPY 

COMPLETE 

enthalpy 

ROW 



N2U 

VM 111 



RAU 

RV000 



STU 

H0011 B 



FMP 

N I 



FAD 

HOOU 



STU 

H0011 VM 111 


VM 111 

RAU 

SYS+1 

COMPLETE 


MPY 

50 

the column 


RAA 

8002 

FOR AAY 


RAU 

ATOM1 



RSB 

0003 VM048 


VM048 

RAU 

RV011 B 



NZU 

VM051 



FMP 

N I 



FAD 

0047 A 



STU 

0047 A VMQ5 1 


VM051 

AXR 

0001 



NZP 

VM061 



SX A 

0050 VM048 


V*961 

RAA 

INDXA 

GO TO NEXT 


RAC 

INDXC UP013 

PRODUCT 


CONSTANTS FOR VECTOR MULTIPLY 



ROUTINE 


50 

00 

0000 0050 



MATRIX CLEAN UP ROUTINE FOR 


GENERAL ROCKET PERFORMANCE 



CALCULAT I 

ON 

MATRX 

RAU 

LNAAY 

GET AAY 


LDD 1 

MC003 EXP E 

FROM 

MC0Q3 

STU 

A A Y 

LNAAY 


LDD . 

ATM-1 

SET INDXB 


PAP 

8001 

TO ATM-1 


RAU ; 

SOLID 



AUP ! 

UNITY 

SET INDXA 


AUP 

8 001 

TO SOLID 


MPY 1 

50 

D LUS TWO 


RAA 

800? MC007 

TIMES 50 


1311 

0420 

0377 

0509 

0517 

1155 

1263 

1106 

1165 

0470 

1540 

1747 

0200 
0603 
1223 
0250 
1215 
0469 
0427 
0300 
0653 
1273 
0520 
0583 
1156 
1265 
1 797 
0082 
1209 
1543 
1396 
1323 
1194 
0350 
1053 
1065 
1373 


83 8003 0420 
15 8003 0377 
11 0104 0509 
15 8001 0517 
21 0152 1155 
60 8002 1263 
19 0186 1106 
80 8002 1165 

27 9005 0470 
29 2037 1540 
60 9018 1747 
21 4047 0200 


39 9019 
32 0047 
21 0047 
60 0111 
44 0469 
60 9004 
21 4997 
39 9019 
32 0997 
21 0997 
60 0079 
19 0186 
80 8002 
60 0642 
83 8 003 
60 9415 
44 1543 
39 9019 
32 2047 
2 1 2047 
52 0001 
42 1053 
51 0050 
80 9029 
88 9030 


0603 

1223 

0250 

1215 

0520 

0427 

0300 

0653 

1273 

0520 

0583 

1156 

1265 

1797 

0082 

1289 

1194 

1396 

1323 

1194 

0350 

1065 

0082 

1373 

1246 


0186 00 0000 0050 


9 am AO^OL p 
FMP AAV 
STU TEMPO 

0047 A 
0049 A 
0049 A 


FSB 

FAD 

STU 


707 


RAU 

TFMPO 


708 


FSB 

0047 

A 

709 


FDV 

T*MPO 


71" 


STU 

RV002 

R 

711 


BMP 

MC031 


71? 


NZ Ft 

MC015 

MC017 

713 

«C n 15 

SXR 

0001 


719 


A X A 

0050 

MC007 

715 

WCO 17 

RAA 

0000 


716 


RSP 

0001 


717 


PA!J 

COMFX 


718 


NZU 

MC 019 

MC021 

719 

vr n i 9 

LDD 

c SR 


7?" 


STO 

00A7 



ADD MASS 

BALANCE 

AND 

ENTHALPY 
OR ENTROPY 
DEI TAS TO 
MATRIX 
STORE 
ERRORS 


PLACE S/R 
IN FNTPQPY 


0257 

1205 
0250 
0236 
0567 
1423 
13 13 
0559 
0617 

1206 

1315 
0609 
0633 
144 1 
1473 
0375 

0652 
0659 
1523 
0226 
0983 
1337 
1590 
1446 
1491 
1290 
0 5 04 
1365 
0519 
0425 


60 0001 
69 0258 
21 1133 
69 0164 
82 8001 
60 0158 
10 0104 
10 8001 
19 0186 
80 8002 


1205 
1850 
0236 
0567 
1423 
1313 
0559 
0617 

1206 
1315 


60 4005 0609 
39 11^3 0633 
21 9059 1441 
33 2047 1473 
32 20A9 0375 
21 2049 0652 


60 9059 

33 2047 

34 9059 
21 9406 

43 0286 
42 1590 
53 0001 
50 0050 
80 0000 
83 0001 
60 01 11 

44 0519 
69 90^6 
2 a 0047 


0659 
1523 
0226 
0983 
1337 
1491 
1 446 
1315 
1298 
0504 
1 365 
0570 
0A?5 
0400 
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721 
72? 1 

72? mc°?1 

724 MC^l 
72? 

72ft 

727 

72P 

729 

730 

731 

73? MC103 

73? 

73^ Mf i nS 
7 3? 

736 

737 
7 38 

739 

740 

741 

74? vri09 

743 

744 
74? 

74ft 

747 

740 

749 1 

750 1 

751 1 
75? 1 
75? ] 

754 1 
75? 1 
756 1 


PAU 

SO/R 

MC009 

PAL’ 

mo/Q 

MfO09 

OAI) 

0 0 


FS? 

p 


?TU 

TSN*PO 


FAD 

0099 


STU 

0099 


RAU 

TFMPO 


FDV 

PO 


STU 

PVOOO 

MC103 

PAU 

COMEX 


NZU 

1 nq 

MC 105 

R A< 1 

S CPR 


pup 

T 


FAD 

0048 


STU 

0048 


SFT 

9037 


ldr 

0037 


SFT 

9037 


STB 

H0001 

MC 115 

R A'J 

S CPR 


FAD 

0048 



STU 0048 

PAU 6 CP9 

FMP T 

FAO 0998 

STU 0998 MC115 


pni, 1 AN'O 0*00 

COLUMN A 

0 570 

ADO — 86 

pope suP? 0569 

[>ct_TA TO 1339 

MATRIX 1“ 9B 

C475 

STORE 105? 

c-ppoo 1 059 

1415 

COMPLETE 1 577 

FNTROPY ' 465 

AND THE i 620 


pnITHALPY (477 

FOLIATION? <090 
0 5 2 5 
>601 
1256 
1690 
1445 
0619 
0527 
0575 
06 51 
1159 
0262 
0625 


DURING rOMPLETION OF SYMMETRIC 
PORTIONS OF MATRIX FOP GAS 
PHASE INDXA WILL TRACK THE 
FQ'JATICN BEING USED INDX R 
WILL TRACK THE DIAGONAL 
POSITION AND INDXC WILL TRACK 


60 0003 0609 

60 0004 0609 
60 0015 0569 

33 1112 1339 
21 9059 1390 
32 0099 0475 
21 0099 105? 
60 9059 1059 

34 0015 1415 
21 9004 1573 
60 0111 1465 
44 0619 0620 
60 9032 0477 
39 9003 0080 
32 0048 0525 
21 0048 0601 
27 9037 1256 
09 0037 1690 
27 9037 1445 
29 0987 1740 
60 9032 0527 
32 0048 0575 
21 0048 0651 
60 903? ll* 9 
39 9003 0262 
32 0998 0625 
?1 0998 1740 


757 1 

758 1 
75o 1 
7 6 ^ 1 
761 1 

76? MC115 

763 

764 

765 

766 

767 
760 
769 
77D 
771 
77? 

773 MCI 17 

774 

775 

776 

777 

778 

779 

780 

781 
78? 


7 83 

784 

785 

786 

787 

788 

MCI 21 

789 

790 

791 

792 

793 

MCI 23 

794 

8003 

795 

8002 

796 

MCI 33 

797 

798 

MC135 

799 

800 
801 
80? 

MC139 

oo’ 

804 

MC14? 

805 

806 

M C 1 5 1 

807 

808 

MCI 53 

809 

810 
811 
81? 

MC159 


TH r pha?F TEST WORD CHECK IS 
ZFPO FOR GAS REFLECTION AND 
UNITY FOR SOLID REFLECTION 


RSU SOLID 

SLT 0004 

STL CHECK 

AUP LDD 

STU MOVE 1 

RSU SYSTM 

AUP STD 

STU MOVE 2 

PAU ATM-1 

NZU »C151 

RSB 8003 MC 117 

LDD 9006 

RAC 8001 

RSU 8001 

AUP SOLID 

AUP UNITY 

AUP 8001 

MPY 50 

PAA B002 

LDD 8005 

STD INDXA MCI 23 

LDD 8005 

STD INDXA 

RSU 8006 

AUP UNITY 

MPY 50 

RAA 8002 MC123 


SET 

9037 


LOR 

0037 A 


RAA 

INDXA 


RAU 

MOVE1 


ALO 

MOVE 2 

0003 

LDD 

9046 C 

8002 

STD 

0047 A 

MC 13 3 

NZC 

MC 135 

MC139 

AXC 

0001 


SXA 

0050 

8003 

A XB 

0001 


NZR 


MC 1 5 1 

ALO 

UNO 


STL 

MOVE2 

MC 14 3 

RAU 

CHECK 


N2U 

MC 160 

MCI 1 7 

RAU 

SOLID 


NZU 

MC 1 53 

MC 04 1 

RAU 

CHECK 


NZU 

MC041 

MCI 5 9 

ALO 

UNITY 


STL 

CHECK 


RSU 

SOLID 


SLT 

0004 



SET CHECK 
TO GAS 

GENERATE 
MOVE1 AND 
MOVE 2 
ORDERS 
SET INDXB 
TO ATM-1 
negativeo 
SET INDXC 
TO INDXB 
INDXA IS 
SOLID PLUS 
TWO MINUS 
INDXB ALL 
TIMES 50 

GAS 

CONDENSED 


REFLECT 

ONE 

ECU AT I ON 
AT A TIME 


GA 5 OR 

ANY SOL ICS 
IN SYSTEM 


SET CHEO 
TO SOLID 

GENERATE 


1740 61 0158 1363 

1363 35 0004 1673 

1673 20 0309 0312 

0312 10 1515 1069 

1069 21 9058 0577 

0577 61 0638 1593 

1593 10 1496 1051 

1051 21 9059 1209 

1209 60 0164 1169 

1169 44 1723 0324 

1723 83 8003 0282 

0282 69 8006 1338 

1338 88 8001 1244 

1244 61 8001 HOI 

1101 10 0158 1413 

1413 10 0104 1259 

1259 10 8001 1067 

1067 19 0186 1306 

1306 60 8002 1565 

1565 69 8005 0471 

0471 24 9029 0627 

0450 69 8005 1356 

1356 24 9029 0362 

0362 61 8006 1219 

1219 10 0104 1309 

1309 19 0186 1406 

1406 80 B002 0627 

0627 27 9037 0332 

0332 09 2037 1790 

1790 80 9029 1448 

1448 60 9058 1255 

1255 15 9059 6003 

8003 69 9646 8002 

8002 24 2047 0500 

0500 48 1103 0554 

1103 58 0001 1359 

1359 51 0050 8003 

0554 52 0001 0260 

0260 42 1463 0324 

1463 15 0416 0521 

0521 20 9059 0378 

0378 60 0309 1513 

1513 44 1167 0282 

0324 60 0158 1563 

1563 44 1217 0318 

1217 80 0309 1663 

1663 44 0318 0368 

0368 15 0104 1409 

1409 20 0309 0412 

0412 61 0158 1713 

1713 35 0004 1773 


E-417 


CA-10 tack E-417 


01ft 
a 1 4 
a 1 ft 
P 1 4 
8 I 7 
ft 1 ft 


D ? ? 
a ? o 1 
ft .? 4 

.ft? ft 

o ?ft 
° ? 7 1 

ft ? ft 1 

ft 70 i 
p ftr i 
ft 3 1 i 
» ft? 7 
fi 3 ft 1 
« 3 4 
« 3 S ] 
0 36 

« 3 7 
ft 38 

a 39 


P 4? 

« 4 3 
ft 44 

*45 

*47 
« 4* 

* 49 
8 in 
851 

85 ? 

* 5ft 

854 

855 

856 

857 

858 

8 59 ] 
360 1 
861 1 

86 ? 1 
86 ? ] 
p 6 4 

8 6 5 
866 
8 6 7 
8fc8 
86Q 
8 70 
87 1 
8 7? 

3 7ft 
® 7 4 1 
478 1 

ft7ft 1 
P 7 7 l 
87* 1 
8 7 Q l 
u 9n l 
861 1 
86 ? 1 
66ft 1 
8 04 1 

8 8 8 1 


MC 94 I 
v C 0 4 ? 

»‘r^43 


v rn4c 
Mr 5 0 


ST*' T-MPO 

fiiiP 

6 Til ‘^0V C 1 
o A ' .! rrypr, 
A!.|D 8T9 

cm vo'/p? 

°am s n l r d 

pec 8003 
LOD 4 T v - 1 
P6C 8001 

R4IJ CV S + 1 

MO V 8 n 

PA A 800? 


Mr i ? i 


M0VF1 and 

1773 

21 

P05 g 

0581 

vove? FOR 

058 1 

10 

7 5 7 c 

1269 

CONDENSED 

1 ?69 

21 

PQ5 8 

1 177 

pH A$F 

1 ] 77 

60 

90*^4 

9335 


0335 

1 0 

1496 

1 151 


1151 

2 1 

905 q 

1459 

I K n x P is 

1459 

60 

0 1 6 P 

1763 

NFG SOLID 

1763 

83 

8 0 0 9 

1167 

INOFXC IS 

1 167 

69 

0164 

1267 

ATM-1 

1267 

P 9 

8 001 

1823 

NEGATIVED 
I N D X A IS 

1823 

60 

0079 

1033 

SYS-+1 

1033 

19 

C 1 86 

1456 

TIMES 50 

1456 

10 

«on? 

0450 


AT THJ8 OQI.VT 0POI0P [F 
ITCDflTTA*l ‘.‘ILL PF vcpriFrt 
DV T“?t»no or I RyPONFNT FflfH 
0 p L T A V'lCT L F6 c THAN 

80“-ift c pftf T F I FO VALUE 


OAR 

0052 MC04? 

EXP TEST 

0316 

82 

0052 

0374 



ITFRATION 





9 A !J 

ATQMl 

continued 

0374 

60 

064? 

1498 

A l v .IP 

UNITY 

UNTIL THE 

14 98 

10 

0104 

1509 

QAC 

0003 «C0<*3 

EXPONENT 

1609 

88 

8003 

0418 

R AlJ 

p\/Q00 c 

OF DELTAS 

0418 

60 

9604 

1175 

FA^ 

*006 

IS FIGHT 

1175 

3 2 

*006 

1305 

V 7 * ! 

M.-Q5 3 

LESS THAN 

1305 

44 

1 559 

0310 

»j?r 

Mf 04 9 

that given 

0310 

49 

101ft 

04 ] 4 

cxr 

000 1 M C 0 4 ft 

pv wQRn 

1813 

59 

0001 

0418 

par 

0054 YC05O 

IN INDEX* 

0414 

8? 

0054 

1070 

PA A 

0000 


1070 

90 

0000 

0276 

rag 

0000 V C051 


0276 

88 

0000 

0382 

RAU 

P0001 a 


038? 

60 

3 599 

1153 

NZU 

MCC52 


1153 

44 

0557 

0308 

9AU 

TOOIO 0 

DEL SUR I 

0557 

60 

6669 

0424 

AX A 

0002 


0424 

50 

000? 

0130 

A X C 

0010 


0130 

58 

0010 

0336 

P AH 

9006 


0336 

32 

*006 

1 665 

*'7!1 

M 0053 MC051 


1665 

44 

1 569 

038? 

PAM 

TFSTX 

CO! VERGED 

0308 

60 

1361 

1715 

N7M 

*+ r . 054 

IF ERROR 

1715 

44 

1 3 I® 

1 170 

ion 

UNITY 

LESS THAN 

1170 

69 

o 

o 

0607 

STD 

T ft S T X 

EXPON 45 

0607 

24 

1361 

0964 

©AR 

0053 MC050 

ONCE OR 

0464 

82 

0053 

1070 



EXPON 46 







TWICE 





V 

.'HEN CONVERGE 0 GO TO VC054 





LOO 

T 

SAVE T C MP 

1319 

69 

900 ft 

1226 

0TO 

TCP 

ON DRUM 

1225 

7 4 

im 

0 5 14 

cr T 

9050 

WAS THE 

0514 

27 

9060 

1 36Q 

l pc 

TFMPI 

FTFRAT ION 

1 369 

08 

1048 

1201 

PAU 

9051 

DONE WITH 

1201 

60 

90 6 7 

1709 

FSR 

T 

THE RIGHT 

1 7 09 

9 3 

9003 

1 ?89 

DM J 

MC058 

THERMAL 

1 389 

4 6 

1 ? 4 ? 

1693 

P A*J 

T 

DATA 

1693 

60 

900? 

1251 

Ftp 

9050 


1251 

33 

9050 

0631 

P M I 

MG 05 0 


0631 

46 

1 2^? 

0? ” 6 

ROUTIN' 7 TO OH ftC < 

ON TRANSITION 





c 

POM G A * TO CONO = 

N S ft 0 P H A S ft 





I 

ft POSITION 7 ON 

THP CONSOLE 





I 

S AN r I GH t CONDFN.SIf'G 






PROGRAM IS PASSED py 

THF PROGRAM A SSI IMF 5 THAT ROTH 
GAS A NO CONDENSED VFCTOR ARF 
IN STCRAGF 


0*6 


LDO 

8000 




0385 

69 

8000 

1 54] 

0 0 7 


R07 

DOME 




1 541 

97 

7 2 9A 

1546 

4 8 p 


STL 

«V1 



initialize 

1 546 

20 

1301 

0604 

#«q 


PAA 

0000 



SWITCH SV/1 

0604 

80 

nono 

0360 

*9^ 


PAG 

0000 


MC201 


0360 

88 

0000 

0466 

u 9 •} 

Mr?o 1 

RAM 

ROOD 1 

A 


AN v MORE 

0466 

60 

3 5 99 

1203 

8 9? 


NZU 



NC230 

PRODUCTS 

1203 

44 

0657 

0358 

8 9 ft 


P A !J 

POOO? 

A 


V ES IS IT 

0657 

60 

3 600 

1 3 55 

ft 94 


Of/ I 



V C?2 7 

GASEOUS 

1355 

46 

0400 

1 759 

09 c. 


PAL 

ponni 

A 


NO 

0*08 

65 

3 6 93 

125? 

ft 9 6 


c L t 

000 1 



WAS THF 

1 ?5ft 

ft 5 

0001 

1809 

0 O 7 


N 7 1 p 

MC?05 



SOLJn uSftD 

1 009 

44 

0564 

0614 

0 Q Q 


PAL 

rnone 

r 


YES IS N I 

0614 

65 

6667 

0071 

Q 9 Q 


RM [ 



vr?? 7 

N ft G A T I V E 

057] 

46 

0474 

1759 



DAM 

MN [Ty 



Vfts I G NOR ft 

0474 

60 

0104 

041 0 

on t 


SR T 

ooci 



THIS SOLID 

04 10 

30 

0001 

1317 

°n? 


«LO 

°ooo 1 

A 


N ft X T TlMft 

1317 

15 

3599 

1303 

9 fl 3 


STL 

POOO 1 

t 



1303 

20 

35 99 

1102 

r, 0 4 


RSI..' 

UN JT V 


MG? 19 


1 10? 

61 

0104 

0460 



76 


^0 8 

vC?05 

OAR 0000 


NO LOCATE 

n 0 6 


PAD P0002 A 

MC207 

THE GAS 

n n 7 

m 0 7 n 7 

At id pnoO 2 9 


PHASF 

OOP 


N2U 

MC?1 1 

VECTOR 

ci 09 


SU° 8001 



o 1 o 


AX.B 0002 

MC207 


p 1 1 

vr?i 1 

0 AU 3006 


FOUND IT 

9 1 7 


wpy F! INF 



on 


PAP 8002 



9 14 1 
9 15 1 


INDEX C 

LOCATES 

SOLID AND 

Clf, 1 


INDEX B 

THE GAS 

PHASE DATA 

917 1 
9 18 


LOO 3007 


STORE 

Q 1 Q 


STD INDXC 


INDEX C 

o ? n 


LOO TEE 


get t TWO 

9 21 


STD T 


AND THREE 

9 2 7 


SET TWO 


FOR CORE 

9 ? ? 


lrr 90001 



o24 


inn vc ?15 

F /RT 


926 

C/P T 

STD LINK 


calculates 

o 26 


PET 9010 


-/RT FOR 

927 


LPR T 000 1 C 

SOL 1 D AND 

9 28 


P AU IE 


GAS 

9 2 9 


FDV T 



9 30 


STU TEN1 



931 


PAD ID 



o 3? 


FDV TWO 



03’ 


CMP T 



034 


FAD IF 



o 1 e, 


FDV Tmrpf 



936 


CMP T 



9 37 


FAD 19 



9 38 


FDV TWO 



0 39 


fMD T 



040 


FAD IF 



9 4 1 


FS9 T^Ml 



94? 


ST'J TCM 1 



0 43 


PAU ONE 




044 
04 c 
9 46 

347 

mf 7 1 6 

ESP LNT 
FMP 1 A 
F S 9 TCM 1 
c TU T-VOO 

LINK 

STORE F/9T 

Q 48 
0 49 
Q 5 r 
u 5 ] 

VC71 7 

LOD 3006 
PAC 3001 
L DO Mr 71 7 
PSU 3003 

F /RT 

CHECK FOR 

05 ? 

953 
9 5 4 
C) 5 c 

FAD tfmPO 
PSP LNNI 
AMI 

DA!.! POOOl 

MC225 

CONDENSING 
IT SHOULD 

9 56 
957 

9 5 R 


O0C1 
COT 0 Or, l 

c TU POOCl 


HAVE BEEN 
CONDENSED 
FIX IT 

959 

vr ? 1 9 

9 A'.i m^TTY 
ADR 6 Y Q 

VC? 1 9 

MDMEv 

1 


STU SYS 


S V S 



|_OD UNITY 

C J R C (»' 1 

M C ? ? 5 

SFT SWITCH 

S V-: 1 

. h u 

v r ? 7 5 

D.Af INDXC 

Mr 7 7 7 

ADVANCF TO 

- 6 8 

v r 2 2 7 

a x a no-2 


THE NEXT 

9 6 6 

a xr 001 r ' 

m C 2 0 1 

PRODUCT 

967 
06 R 
9 4 9 

M /7 7 3r 

ctl T c S t X 

CAM S’" 1 
M 7 | J !JNPAK 

DONE 

ANY 'WRONG 
products 

;) 7 

"'lOMP 

l pn c, SR 


S’JMMAT I 0 r ' S 

O 7 1 
07 ? 

0 7 7 

0 74 
9?5 
07 6 
0 7 7 

STD S 
1 DD S W P T 
9 T n H 
l_DO ATM-1 
p rr pOOl 
l_Pp SYS+? 
pea 3 cn 1 
CCT 9069 

r 

OF S/P AND 
h/rt 0* : 

DR I'M 
INDXC IS 
A T M — 1 N F G 
INDXA IS 
SYS+? NEG 
STORE 

o 7 q 


0099 

A 

PRE SSURS 



S-T 9059 

/■ 

ROW IN 

c ^ 


SRP 20010 

r wens 7 

7 9FGI0N 

9 H 7 

v r 0 6 P 

STL T r ?TX 

v C 0 5 R 



t^ct fDK-e 0L r = 0P PUNCH] MC- 

t r*iTF»w r ^ I j ftTF ancwfrp 


■'j p. a i 


i; A 7 

Mr ^6 3 

ldd 

I T P R A 

T r S T 1 


‘j 0 8 

Mrne 7 

LDD 

DERI V 

TEST1 


pq 

vr".*, Q 

LDD 

VC060 

TEST! 


9 

m c n 6 0 

ldd 

TEE 



Q 9 1 

STD 

T 

TOATA 


9 9 7 

TCSTl 

3TD 

LINK 1 



0 9 3 


LDD 

8000 



O 


PP? 

D-LS 

iVFXT 1 

JPMPDD ip V 

OQS 

fiFVTI 

L Op 

8000 


PUNCHES 

Q 9 6 


pD 3 

VA» I A 

M P X T ? 

F OR 


1564 82 0000 1220 

.220 60 '4 60 0 1405 

.405 10 5600 1455 

f- 5 5 44 0510 0560 

) 5 1 0 11 8 0 01 1367 

1367 52 000? 1405 

1560 60 8006 1417 

1417 19 1270 1591 

1591 82 8002 1549 


1549 

69 

8007 

1505 

1505 

24 

9030 

1411 

1411 

69 

1111 

1064 

1064 

24 

9003 

1320 

1320 

27 

9028 

1275 

1276 

0 8 

1747 

0p60 

0550 

69 

1353 

1506 

1506 

24 

1855 

0458 

0458 

27 

9010 

1164 

1 164 

03 

6660 

1214 

1214 

60 

9 0 15 

0621 

0621 

34 

9003 

0524 

0524 

21 

0428 

0981 

0981 

60 

9014 

1439 

1439 

34 

9079 

1292 

129? 

39 

°003 

1495 

1495 

3? 

901 ? 

1 3?5 

1325 

34 

9029 

0478 

0478 

3 9 

9003 

1031 

1031 

3? 

9012 

1461 

1461 

34 

9028 

1264 

1 ?64 

39 

900? 

146 7 

1467 

32 

9016 

1548 

1548 

33 

04 2 8 

1555 

1555 

21 

90^9 

1314 

1314 

60 

1149 

1403 

140? 

33 

COO? 

0429 

0429 

39 

9011 

043? 

0432 

33 

9049 

1855 

1?53 

21 

9059 

1511 

1511 

69 

8006 

1517 

1517 

88 

8001 

0574 

0574 

69 

12?7 

1506 

1227 

61 

8003 

0435 

0435 

32 

9059 

1765 

1765 

33 

9017 

1545 

1545 

4 6 

1599 

1699 

1598 

60 

3 5 99 

145? 

1453 

35 

0001 

0610 

0610 

30 

finni 

1567 

1667 

2 1 

3 6 99 

115? 


115? 60 0104 0460 

0460 10 0018 0624 

0624 21 0018 1071 

1071 69 0104 1057 

1057 24 1301 1699 

1699 8 B 90?0 1759 

1759 50 0002 1B15 

1815 58 0010 0466 

0356 20 1361 1364 

1364 60 1301 1705 

1705 44 0101 1294 

] 794 49 Q036 0600 

0600 24 1124 1277 

1?77 69 90^4 1183 

1183 24 1113 0516 

0516 89 0164 1667 

1667 89 6001 1074 

1074 69 0036 1489 

1489 81 8001 1595 

1*95 ?7 9659 0650 

0650 08 ? 099 120? 

1202 27 966Q 1107 

1107 28 ? 3 4 9 125? 

174? ?0 1361 1414 


1559 69 0467 0566 

125? 69 1765 0566 

1414 69 1717 0566 

1717 69 111 1 1464 

1464 74 9003 0034 

0566 ? 4 1.419 0277 

077? 69 8000 0578 

0 5 ? 8 9? UH1 1?33 

]2?3 *9 p 000 1539 

1539 93 139? 1394 


E-417 



E-417 


y*?7 

^EXT? 

LOT 

a nnn 


PPOGPA v 

1 394 

69 »onri 

1000 

OQR 


A04 

M T R I X 

LINY 1 

CHPCK 1 NG 

1000 

94 

1 BO" 3 

1419 

999 

1 









100" 

1 


CONSTANTS FOP M A TP 

IX 





inoi 

] 


Cl “AN 

UP ROUT INF 






i no? 

LOO 

LO-o 

904 6 

r Ron? 


1515 

69 

9646 

800? 

i nr)i 

cm 

9 T 0 

OO47 

4 ven? 


1496 

? 4 

? 04 7 

0500 

n04 

t inn 

r>ri 

00 ni 

noon 


04 16 

00 

nnni 

0000 

i 0 0 8 
lDOfi 

pn^'CT 

1 

n 

n n 0 n. 

pros 


1770 

00 

onnn 

0005 

l m 

1 









10 0P 

1 


POUT INF FQP CALCUL 

AT IMG TUf 





1 ooq 

3 


CORRECTIONS TO THF 

CUPPENT- 





I 0 lo 

1 


COMPOSITIONS A A Y 

AND THE 





ion 

1 


TEMPERATURE 






101 ? 

3 









ion 

ITFPfi, 

p AIJ 

S v S + 2 

NFWOO 

SOLVE FOR 

0462 

60 

0 0 36 

1 691 

nn 

NFVJO 0 

LOO 

N p H01 

SOLVE 

copfct IONS 

1691 

69 

1 444 

1698 

ion 

.N F VP] 

LOO 

SYP + 2 


LOAD 

1 444 

69 

0036 

1 589 

3 n if, 


9 5P 

8 001 


VAR I ARLFS 

1589 

83 

8001 

1695 

m-> 


SFT 

Moon ] 


IN 

1695 

?7 

9000 

1050 

nip 

ion 

1 

!.D B 

00050 

0 N r WO? 

M-pcr, ton 

10 5 0 

09 

4050 

1553 

n2n 

1 


I NO XA WILL TRACK THF PRODUCT 





n?i 

] 


COnf a NO INDXC WILL T° A fv 





102? 

1 


THF L M 

M 






10 2 3 

1 









n?4 

NFWO? 

P.5 4 

000? 



1553 

81 

000? 

0960 

] ri2 5 


R.SC 

0010 



0960 

89 

0010 

0616 

1 o 2 f 


LOO 

SOLID 



0616 

69 

0158 

1561 

m?7 


5 TO 

COUNT 

N f WO 3 


1561 

24 

016? 

1805 

i P?P 










102 Q 

N c W 0 3 

LOO 

AT^imi 



1805 

69 

064? 

1 745 

10 30 


PAP 

0010 


CLFAP 11 

1745 

8? 

0010 

1351 

n ? i 


PAU 

1 Off 9 

8003 

CORE 

1351 

60 

0664 

8003 

n 3 ? 

8003 

stl 

mooo 1 

P NFW04 

LOCATIONS 

000? 

20 

9415 

1066 

1 f\ 3 -a 

N c t,rni 4 

NZR 


N E w 0 6 

FOR ROW 

1066 

4? 

1 469 

1370 

10 3 A 


SXR 

OCOl 

8003 

VECTOR 

1469 

53 

0001 

8003 

10 3? 
10 36 

WIPE 9 

STL 

N0001 

3 NEW04 


0654 

20 

94 1 5 

1066 

10 3 7 

M c 'V 0 6 

A X A 

0002 



1370 

50 

000? 

0326 

ID 38 


AXC 

0010 



0326 

58 

0010 

0482 

n3Q 


PAL 

P0001 

A 

DO WF HAVE 

048? 

65 

3 699 

1703 

3 040 


N7C 

N f !'I07 

NEW 18 

A PRODUCT 

1 703 

45 

1 556 

1 157 

104] 

N c i,< n 7 

C LT 

0001 


YE S USE 

1556 

35 

0001 

1514 

1"4? 


*71! 

N F W06 

N c W 0 8 

OR BYPASS 

1514 

44 

1 3 7.0 

0468 

1 









10 44 

NFW08 

RAlJ 

P0O02 

A 

TEST FOR 

0468 

60 

3 600 

1706 

104? 
104f ] 


PM 1 

M c W ? 0 

NEW 1 0 

CONDENSED 

1 706 

V6 

1060 

1160 

3 0 4 7 

N*u/] 1? 

SPT 

000? 


GET THF 

1160 

30 

0002 

1767 

! o 4 R 


SUP 

8003 


VOLFCULF 

1767 

1 1 

8003 

1 375 

1 049 


STO 

tfmpc 


SL'R SCRIPTS 

1?75 

24 

9059 

1231 

1 "'So 


C LT 

0001 


AND LOCATE 

1231 

35 

0001 

1387 

1051 


ALO 

51 


POSITION 

1387 

15 

0166 

1171 

ns? 


PAR 

8003 


TO STORE 

1171 

8? 

8003 

0180 

i n 5 -a 


S T L 

N0001 

p 

STO»F 

0180 

20 

94 15 

1388 

1054 


9AIJ 

TEMPO 


SUBSCRIPTS 

1388 

60 

9059 

1795 

3 05? 


M7U 

NFW10 


IN CORE 

1795 

44 

1160 

1100 

n56 


LOO 

SY5+2 


LOAD 

1 1 00 

69 

0036 

1689 

3 0 5 7 


PAP 

8001 


01 AND 

1689 

82 

8001 

1 596 

1 05 P 


5F T 

MOOOO 

p 

DELTA I 

1596 

27 

94 1 4 

1401 

1059 


LO e 

T 0009 

C NEW 1 5 

ON CORF 

1401 

09 

6668 

1221 

106o i 
106 1 

N F w 1 5 

SET 

cnooi 


ROUTINE 

1221 

27 

9050 

0376 

106? 


L PR 

onooi 

C0001 

FOP 

0376 

OB 

1020 

9050 

106 p 

00"0 1 

SX? 

nnn 1 

COCO 2 

DEL LN PI 

1020 

53 

0001 

9051 

1 064 

ooon? 

PA' f 

M^on 1 

0 C0003 


1021 

60 

9400 

905? 

1 06* 

00003 

FMD 

N"oni 

8 C0004 


102? 

39 

9415 

9053 

1 066 

0 0 n 0 4 

FAO 

\inoo? 

c, cooos 


102? 

3? 

9416 

9054 

3 of -7 

OO^or 

ST'.' 

NOm 1 

p C n 0O6 


1024 

21 

9415 

9055 

i 0 6 R 

Ooopf 

^.7 9 

C0001 

C0007 


1025 

42 

9050 

9056 

1 069 

ooon 7 

PAO 

T 0008 

c cooos 

NEW LN N I 

1026 

32 

6667 

9057 

3 070 

come 

5TU 

T 0008 

C NEW0 3 

FOP GAS 

1027 

21 

6667 

1805 

107] 1 










10 7? 

N* r '.«'?0 

LDD 

COUNT 


NEW N I 

1060 

69 

0152 

1756 

107? 


P5R 

8 001 

NFW? 1 

FOE 

1756 

83 

8 001 

0512 

n74 

MFW?l 

PAU 

00048 

p N F W ? 2 

CONDENSFD 

0512 

60 

404R 

1753 

1 07 P 

M F w 7 ? 

FA n 

rnnop- 

r 


1 7 5 n 

32 

6667 

1 7A 3 

1076 


ST| l 

T0008 

C 


1743 

21 

6667 

1 4 ? 0 

107 7 


PAD 

COUNT 


DECREASE 

1420 

60 

015? 

1707 

n?R 


SUP 

UNITV 


COUNT 

1207 

1 1 

0104 

1210 

3 "79 


CTl.i 

CO’jN T 

NEW06 

FOP sol ns 

1210 

21 

016? 

1370 

1080 l 

nei 

NFW18 

PAU 

00049 

N EW 1 9 

NEW LNT 

1157 

60 

0049 

1803 

108? 

*EW19 

FAO 

L NT 



1803 

32 

0002 

0479 

ne? 


S T U 

L NT 

NFW60 


0479 

21 

0002 

1806 

1004 

n 

psu 

D0C48 

NEW 61 

rNEW LNA 

1806 

61 

0048 

1104 

1085 

MFW6 1 

FAD 

LNA t Y 



1104 

3? 

0001 

1327 

ne6 


STU 

Lt^AAV 



1327 

21 

0001 

1154 

np7 


PAU 

R O n O 


punch th f 

1154 

60 

8000 

1661 

1 ORR 
lopo 1 


B« J 

D C L X 

UNPAX 

CORRECTION 

1661 

46 

1564 

0101 



] n Qn i 
log? i 
ir>9? i 
If'Q'* ] 
K,9 4 1 

1 « 9 e, i 

1^96 1 
1^97 1 
1 9 p 

logo 
1 ^ 0^ 

I 10 i 

nn? 

I I n ^ 

1 in/ + 

1 105 
1 106 
1107 1 
1 1 OP 1 
1 1 09 
111'' 
mi 1 
ill? i 
1 1 1 -a 

n u 

1115 
1115 
111^ 
i lie 

1 1 19 
1 ] 2 ° 
1121 
1127 
1 127 
1 1 ?4 
1125 
1 1 26 

1127 

1128 
1 129 
1 1 30 
1 131 
1 1 3? 
1138 
1 1 34 
1 1 38 
1 1 36 
1 1 37 
113 8 
1 1 39 
1140 ■ 
1 1 41 
114? 

1 1 48 
1 1 44 

n 4 c 

1 1 4f 

1147 
1 1 48 
1 1 49 
1 1 50 
1151 
1 15? 
115? 

I 1 54 
1155 

I I 56 
1157 
11 5p 

115 9 

I 1 fto 
1161 
116? 

1 16? 

116 4 

1 165 

1166 
1 167 

I I 68 
1 1 69 
1 ] 7n 
1 171 
117? 

1 1 7o 
1 1 74 
1 175 

1176 

1177 

1178 

1179 
1 IBn 


c,T *P T new ir^PATION «T UNOAK 
dcocoRMaNCE PARAMETER ROUTINE 


WHEN ITERATION IS COMPLETED 
PNTFR AT DEPIV 


DERI V 

Q AU 

SYS + 2 


D1 

SOLVE FOR 

1755 

60 

0036 

1741 

01 

l_DO 

1 L F S S 


REOUC 

DLNPt / 

1741 

69 

1494 

1748 

lL^SS 

PAH 

SYS+1 



DLNT AT 

1494 

60 

0079 

1283 


LOO 

C° 1 


SOLVE 

CONSTANT P 

1 ? 8 ? 

69 

0386 

1698 

ro 1 

LOO 

cv<i + ] 



LOAD 

0396 

69 

0079 

053? 


98A 

8 001 



PARTTALS 

0532 

8 1 

0001 

1430 


R AB 

3 001 



DLNPI / 

1438 

82 

8001 

1544 


SET 

M00C1 



DLNT AT 

1544 

27 

9000 

1749 


ldr 

D0050 

A 


CONSTANT p 

1749 

09 

2050 

1204 






ON CORE 






SET 

N 0 0 0 1 



c N T H A L P Y 

1204 

27 

9015 

1260 


LDP 

w 001 ? 

A 

CP 2 

ROW MQVFD 

1260 

09 

? 9 98 

1451 






TO COPE 





CP ? 

CXP 

0001 



CALCULATE 

1451 

5? 

0001 

1 ? 57 


O 9I J 

vnooi 

a 


SPECIFIC 

1257 

6 1 

9400 

1166 


FMP 

NO DO 1 

B 


HEAT TIMES 

1 166 

39 

94 15 

1519 


FAD 

NO 00 2 

R 


MOLECULAR 

1519 

32 

9416 

1799 


STU 

N0001 

R 


WEIGHT 

1799 

2 1 

9415 

1307 


NZR 

CP 2 



DIVIDED 

1307 

42 

1451 

1711 


FDV 

P 



BY R 

1711 

34 

1 1 1 2 

056? 


EDV 

TFF 




0562 

34 

nn 

1761 


STU 

ropR 




1761 

2 1 

1216 

1569 


RAU 

DO049 



STORE 

1569 

60 

0049 

1254 


8TU 

LMTP 



DLNM/DLNT 

1254 

21 

1123 

0426 


i.OO 

800(1 



AT CONST P 

0426 

69 

8000 

050? 


QOl 



CP 3 

CHANGES 

0582 

91 

0485 

1437 


LOO 

NOOP 



MADE 

0485 

69 

1400 

1791 


STD 

WC041 


UNPAK 

NECESSARY 

1791 

24 

0318 

0101 

ONOF 

LDD 

NORM 



BY 

1150 

69 

1304 

1357 


STD 

MC041 



EQUATION 

1357 

24 

0318 

1271 


RAU 

SYS+2 



SHIFTING 

1271 

60 

0036 

1442 


ldd 



REDUC 


144? 

69 

1696 

1748 


RAU 

SVS + 1 




1696 

60 

0079 

1333 


LDD 



RFDUC 


1333 

69 

04^6 

1740 


RAU 

SYS 




0436 

60 

0018 

1174 


LDD 

OLMPT 


SOLVE 


1174 

69 

1377 

1698 

NOOP 

N0° 

0000 


ONCE 


1488 

00 

0000 

1150 

NOP M 

PA« 

005? 


MC04? 


1304 

82 

005? 

0374 

CP ? 

RAU 

SYS+1 




1437 

60 

0079 

1383 


LDD 

2LES S 


REDUC 


1303 

69 

0486 

1748 

2LESS 

RAU 

3YS 




0486 

60 

0018 

1224 


LDD 

DLMPT 


BACK 


1224 

69 

1377 

0230 



CONSTANTS POP USF 
CALCULATIONS 

IN PARAMFTFR 





CONS 1 

14 

6960 

0652 

PS1 /ATM 

1 140 

14 

6960 

0652 

CONS 2 

86 

4554 

005? 


1 141 

86 

45 54 

0052 

CONS? 

10 

0000 

0054 


1142 

10 

0000 

0054 

CONS4 

29 

4980 

0053 


1143 

29 

4980 

0053 

C0NS5 

57 

0000 

0050 


1 144 

57 

00 00 

0050 

5? 

00 

0000 

005? 


1145 

00 

0000 

0052 

p 

19 

8718 

0051 

CAL/MOL K 

1 146 

19 

8718 

0051 

GC 

32 

1 740 

0052 

GRAVITY 

1147 

32 

1740 

0052 

0N C 

10 

0000 

0051 


1149 

10 

0000 

0051 


SFT CORF 

LOCATIONS 

equivalent 






TO PARA*-" 

FT c RS AND 

CONSTANTS 






OF THF r 

REG I ON 







FOU 

prp 

M0001 

9000 






EOU 

TFF 

M0002 







FOU 

P 

M0003 







FOU 

H 

M0004 







FOU 

I 

M0005 







FOU 

M 

M0006 







FOU 

CF 

M0007 







FOU 

FPSIL 

M0008 







FQIJ 

MACH 

M 0009 







e ou 

I VAC 

M0010 







CQU 

CP 

M0O11 







c OU 

GAMMA 

M0012 







FOU 

LMPT 

MOO 13 







FOU 

LMTP 

MOO 14 







EOU 

S 

M0015 







FOU 

N! 

MOO 16 







FOU 

NT 

MQ017 







FOU 

NFPS 

M 00 1 8 







FOU 

NCSTR 

^0019 







E-417 



E-417 
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1181 EQU CSTAR M0020 

118? EQU AW M0021 

1183 EOU NAW M0022 

1184 EQU HSTR M0023 

1185 EQU A AY M0024 

1186 EOU HC M0025 

1187 EOU RECMC M0026 

1188 EOU N AWT M0027 

1189 EOU AWT M0028 

1190 EOU HSTR2 M0029 

1191 EOU PI M0030 

119? EOU CONS 1 M0031 

1193 EOU CONS2 M0032 

1194 EOU CONS3 M0033 

1195 EOU C0NS4 M0034 

1196 EQU CONS5 M0035 

1197 EQU 52 M0036 

1198 EQU R M0037 

1199 EOU GC M0038 

1200 EOU IDENT M0039 

1201 EOU ONE M0040 9039 

1202 1 

1203 1 CALCULATE THE PARTIAL DERIV 

1204 1 OF THE LOG OF MOLEC WEIGHT 

1205 1 WITH RESPECT TO THE LOG OF 

1206 1 PRESSURE AT CONSTANT TEMPERTUR 

1207 1 


1208 

DLMPT 

SET 

M0001 




1377 

27 

9000 

0632 

1209 


LDB 

F0001 




0632 

09 

1110 

1664 

1210 


LDD 

SYS 



LOAD 

1664 

69 

0018 

1321 

1211 


RSA 

8001 



DLNPT/DLNA 

1321 

81 

8001 

1427 

1212 


SET 

M 004 1 



IN CORE 

1427 

27 

9040 

0982 

1213 


LDB 

D0050 

A 



0982 

09 

2050 

13 54 

1214 


LDD 

ATM-1 




1354 

69 

0164 

1817 

1215 


RSA 

8001 




1817 

61 

8001 

1274 

1216 


RAB 

8001 




1274 

82 

0001 

0280 

1217 


SET 

M0051 




0280 

27 

9050 

0535 

1218 


LDB 

Z0010 

A 

LMPT 1 

RRING AAY 

0535 

09 

3349 

1302 

1219 

LMPT1 

RAU 

M0041 

R 


COLUMN 

1302 

60 

9440 

1310 

1220 


FMP 

M0051 

a, 


TO CORE 

1310 

39 

9450 

1714 

1221 


FAD 

LMPT 




1714 

32 

9012 

1793 

1222 


STU 

LMPT 




1793 

21 

9012 

1501 

1223 


NZB 



LMPT2 


1501 

42 

1404 

1407 

1224 


sxb 

0001 


LMPT 1 


1404 

53 

0001 

1302 

1225 

LMPT2 

RAU 

p 




1407 

60 

9002 

1266 

1226 


FDV 

LMPT 




1266 

34 

9012 

1669 

1227 


FSB 

ONE 




1669 

33 

9039 

1200 

1228 


STU 

LMPT 




1200 

21 

9012 

1457 


1229 1 

1230 1 CALCULATE SEVERAL OTHER 

1231 1 PARAMETERS 

123? 1 


1233 

1234 

1235 

1236 1 

1237 

1238 

1239 

1240 

1241 1 

1242 

1243 
1 244 
124 ? 

1246 

1247 
1240 
1240 
1250 
1751 

1252 

1253 

1254 1 

1255 
17 56 

1257 

1258 
12 59 

1260 l 
1 76 1 
1 76? 

1 26 3 
1 264 
I 265 
1266 1 
1 267 1 
1 268 1 
1269 1 

1 ?7r 
1 771 


RAU 

AAY 

CALCULATE 

1457 

60 

9023 

1316 

EDV 

P 

MOLECULAR 

1316 

34 

9002 

1719 

STU 

V 

WEIGHT 

1719 

21 

9005 

1477 

RAU 

CPMR 

SPECIFIC 

1477 

60 

1216 

1371 

EMp 

R 

HEAT 

1371 

39 

9036 

1324 

FDV 

M 

CAL/G 

1324 

34 

9005 

1527 

STU 

CP 


1527 

21 

9010 

0585 

RAU 

ONE 

GAMMA 

0585 

60 

9039 

1594 

FSB 

LMTP 

EQUALS 

1594 

33 

9013 

1374 

FMP 

8003 

PARTIAL OF 

1374 

39 

8003 

1577 

STU 

TEMPO 

LN PRESSUR 

1577 

21 

9059 

0635 

RAU 

ONE 

WITH RESP 

0635 

60 

9039 

1694 

F AO 

LMPT 

TO 

1694 

32 

901? 

1424 

FMP 

CPMR 

LN DENSITY 

1424 

39 

1216 

1366 

FSB 

TFMPO 

AT CONSTNT 

1366 

33 

9059 

1746 

STU 

TEMPO 

ENTROPY 

1746 

21 

9059 

1454 

RAU 

CPMR 


1454 

60 

1216 

1421 

FDV 

TEMPO 


1421 

34 

9059 

14 74 

STU 

gamma 


1474 

2 1 

9011 

1281 

RAU 

H 

CALCULATE 

1281 

60 

9003 

1739 

FDV 

AAY 

ENTHALPY 

1739 

34 

9023 

1492 

FMP 

TEE 

CAL/G 

1492 

39 

9001 

1796 

F VP 

R 


1796 

39 

9036 

1250 

STU 

H 


1250 

21 

9003 

1507 

RAU 

S 

CALCULATE 

1507 

60 

9014 

1416 

POV 

AAY 

ENTROPY 

1416 

34 

9023 

1769 

STU 

TEMPO 


1769 

21 

9059 

1677 

FMP 

R 


1677 

39 

9036 

0330 

STU 

S 


0330 

?1 

9014 

1487 


TEST IF COMBUSTION 

THROAT OR 






EXIT 






RAU 

COMFX 


1487 

60 

0111 

1466 

N7U 

T OP E X 


1466 

44 

1819 

1470 


1 272 1 
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P All ONF 
FDV M 
ST! I RFCMC 

FMP P 
FOV CP 
FMP LMTP 
RSU 8003 
5TU NT 

LOO H 
STO HC 
LOO TFMpO 
STO SO/R 
RSU UNITY 
ST'J COMFX 
STL CSTAP 


CALCULATE 
N SUB T 


SAVE SO/R 
SFT COMFX 
FOR THROAT 
CLEAR CSTR 


470 60 9039 1727 

727 34 9005 0380 

i 380 21 9025 1537 

1537 39 9036 1542 

542 34 9010 1798 

798 39 9013 1551 

551 61 8003 1360 

360 21 9016 0518 

:)51B 69 9003 1524 

1524 24 9024 0430 

0430 69 9059 0536 

0536 24 0003 1557 

1557 61 0104 1410 

1410 21 0111 1764 

1764 20 9019 0322 


TEST IF THROAT OR EXIT IS 
RFING PROCFSSEO 


rm j throt 
ldd rfman 


1819 46 0372 1574 

1574 69 1777 0480 


PAU TEE 
FDV M 
FMP R 
FDV TWO 
STU RT/2M 
FMP GAMMA 
FAD H 
STU HSTR 
FDV HC 
FSB F j NS 
N7.U 

PAU GAMMA 
FAD ONF 
FMP RT/2M 
STU TEMPO 
PAtj HC 
FSB HSTR 
FDV T c MP0 


1 *?0 

FAD 

ONE 

1321 

CMP 

p 

1 32? 

«TU 

PO 

1 3? 3 

PAU 

PC 

] 324 

STL 

TFSTX 

1*2* 

FDV 

on 

1*26 

STU 

POOO? 

] 327 

STU 

FO001 

1 3 2 ft 1 



1 3?Q 1 


START 

1 33P 1 


THROAT 

1331 1 




CALCULATE 
HSTR AS 
H PLUS 
VELOCITY 
OF SOUND 
SQUARED 
OVER TWO 

THROAT IS 
GOOD WHFN 
HSTR EQUAL 
HC 

THROAT NOT 
DONE YET 

CALCULATE 
THE NEXT 
PRESSURE 
ESTIMATE 
FOR THROAT 


STOP PC/P T 


60 9001 C 
34 9005 1 
39 9036 C 
34 1247 1 
21 1504 ] 
39 9011 1 
3? 9003 3 
21 9022 3 
34 9024 3 
33 1757 3 
44 1587 : 

60 9011 : 

32 9039 < 
39 1504 
21 9059 
60 9024 

33 9022 

34 9059 
32 9039 
39 900? 
21 0015 
60 1109 

20 1361 
34 0015 

21 1076 
21 1U0 


FDR CON VFPGENCF 


1 * 3a l 
1*35 

F I MS 

00 

1000 

0053 

throt test 

1757 

00 

1000 

0053 

13 3 6 1 










13 37 1 
1*38 

r<TPl 

LDD 

CSTR? 

SEVPL 


1538 

69 

159? 

0480 

13 30 1 
* 3 40 
134] 
134? 

CSTP? 

STU 

FAD 

STU 

NAWT 
ONE 
MC STR 


CALCULATE 
C S T AR 
exponent 

159? 

1500 

1029 

21 
32 
2 1 

R026 

9039 

9018 

1500 

1029 

1687 

1 *43 1 

1 344 

] 1 iiR 


P AU 
STD 

AW 

AWT 


STORE 

throat a/w 

1687 

1550 

60 
? 4 

R020 
QO ? 7 

1550 

1807 

1 R4A ' 
1 347 
1 i 4.3 
1 1 6Q 
3 3 5 o 

) 

FMP 

FMP 

FMP 

CT" 

pr 

r,r 

r o n s i 
r star 


calculate 

r ct AP 

1 «07 
1510 
1 666 
1570 

* 9 
39 
39 
2 1 

1 109 
9037 
90*0 
90 1 B 

1510 

1666 

1570 

1827 

1 *5 1 
1 3 5 ,7 
135* 

1 

ldd 

STD 

UNITY 

ro^EX 

Rfman 

SFT COMFX. 
FOP EXIT 

1827 

0508 

. 69 
24 

0104 

0111 

0508 

1777 


c.mbPDMTU'F' TO 

rai rui AT T c f y c p a L orpenoMAMfC 
Q SO Af.'*FT rr ? S '•'H T F H «,■ r F n F f) 

^CTFD JHPOAT AND F X ,T AP C 

^ O N V F C <"■ f ri i D(iy a p F AL^C U.SFD TO 
OBTAIN SPECIAL T^POAT 

P SR A»."F T f p c, afTfP THROAT IS 
- O N V c R G f D 


E-417 



CA-11 E-417 


81 


1 *6* 

CFyRL 

STD 

L INK1 


CALCULATE 

0480 

24 

1419 

0422 

1 *66 


PAtJ 

HC 


SPECIFIC 

0422 

60 

9024 

1179 

] *67 


F^P 

H 


IVPULSF 

1179 

33 

9003 

1560 

1 *60 


FOV 

COM S3 



1560 

34 

903? 

1716 

1 ?6° 


LDP 

lvo UL 

SORT 


1716 

69 

1670 

1900 

1*7" 

I "•'°UL 

F VP 

C0NS4 



1670 

39 

9033 

1674 

1*71 


STU 

I 



1674 

21 

9004 

1 331 

1777 1 
1375 


RSU 

ONE 


CALCULATE 

1331 

61 

9039 

1692 

1*74 


fdv 

M 


SPECIFIC 

1692 

34 

9005 

1700 

1*75 


FAD 

RECMC 


IMPULSE 

1700 

32 

9025 

1229 

1*76 


FMP 

TEE 


EXPONENT 

1229 

39 

9001 

1182 

1*7 7 


FMp 

CON 52 



1182 

39 

9031 

1035 

1*78 


FDV 

I 



1035 

34 

9004 

1588 

1 7 7 Q 


FDV 

I 



1588 

34 

9004 

174? 

1*8" 

] *1 Q 1 1 


STU 

M I 



174? 

21 

9015 

1750 

1 *8 7 


PA'J 

TEE 


CALCULATE 

1750 

60 

9001 

0558 

1*83 


FDV 

A A Y 


APEA PER 

0558 

34 

9023 

0612 

1*84 


FDV 

1 


UNIT FLOW 

061? 

34 

9004 

1766 

1*85 


FMP 

C0NS2 


RATE 

1766 

39 

9031 

1720 

1*86 


FDV 

CONS1 



1720 

34 

9030 

1724 

1*87 


STU 

AW 



1724 

21 

9020 

1381 

1788 1 
1389 


PAU 

R 


calculate 

1381 

60 
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1703 0U T 1 

1704 

1705 J0P01 

1706 J0002 

1707 J0003 
1700 JCC04 

1709 J0PO5 

1710 J0006 

1711 J0007 

1712 

1713 

1714 ZEROU 

1715 3 

1716 BACKS 

1717 B 1 

1718 

1719 1 

1720 

1721 BACK1 

1722 

1723 

1724 


SET M0002 
STR D0050 ° 

SET C0001 

LBB JO 001 NEW R 

SXB 0050 
AXB NOROW 
BOV OFLOl 
8MB OUT 1 
SXB NOROW 
SET NOOOl 


LDB 

D0049 P 


RAA 

NOROW 

ELMIN 

hlt 

0000 

9955 

RAU 

NOROW 


SUP 

UNITY 

START 

RSU 

NOOOl 

C0002 

FMP 

M0001 A 

C0003 

BOV 

ZEROU 

C0004 

FAD 

NOOOl A 

C0005 

STU 

NOOOl A 

C0006 

SXA 

0001 

C0007 

NZA 

ELM I N 


SET 

N0002 


STB 

D0050 B 

NEW R 

RAU 

8002 

C0004 

RAU 

N0003 

B 1 

FDV 

N0002 


LDD 

EQUAT 


STD 

NOROW 

BACK 1 

RAB 

0000 


RAC 

0001 


SET 

C0001 


LBB 

K0001 

S7 


AMD STORE 

1030 

BACK ON 

1435 

DRUM 

1180 


1485 

any more 

1230 

EQUATIONS 

1036 

CHK OVRFIO 

1280 


1535 

YES 

1380 


1430 


1585 


1480 


0534 

NO 

1330 


1530 

ELIMINATE 

1006 

A VARIABLE 

1007 

CHK OVRFLO 

1008 


1009 

1010 
1011 
1012 
1680 
1685 

OVERFLOW 1580 

LEAVES THE 0626 

LAST 0584 

VARIABLE 1730 

IN UPPER 

1780 

1712 

1830 

1186 

1382 


27 9001 1435 
29 4050 1180 
27 9050 1465 

08 1006 1230 

53 0050 1036 

52 9049 1280 
47 0534 1535 
43 1330 1380 

53 9049 1430 
27 9015 1585 

09 4049 1480 
80 9049 9050 
01 0000 9955 

60 9049 1530 
11 0104 1662 

61 9015 9051 

39 9200 9052 
47 1580 9053 
32 9215 9054 
21 9215 9055 
51 0001 9056 

40 9050 1680 
27 9016 1685 
29 4050 1230 
60 800? 9053 

60 9017 0584 
34 9016 1730 
69 1512 1780 

24 9049 1712 
82 0000 1830 
88 0001 1186 
27 9050 1382 
00 1013 1432 


1725 1 

1726 $7 SXC 0001 

1727 STU D0049 C 

1728 BOV 0FL02 

1729 RSL 8007 

1730 R A A 8002 

1731 AXA 0001 


1432 59 0001 1482 

1482 21 6049 1532 

CHK OVRFLC 1532 47 1735 1582 

1582 66 8007 1682 

1682 80 800? 1732 

1732 50 0001 1782 


E-417 



E-417 


85 


1732 

1733 

1734 

1733 

1736 

1737 
1730 

1739 

1740 0FL02 

1741 49 

1742 1 

1743 1 

1744 1 

1745 1 
1 746 1 

1747 <0001 

1748 <0002 

1749 <0003 

1750 <0004 

1751 <0005 

1752 <0006 

1753 <0007 

1734 ZERUP 

1755 1 

1756 1 
175? 1 
1750 1 

1759 1 

1760 REDUC 
176 1 

1762 
1 763 

1764 SHIFT 

1765 
1 766 
1767 
176 8 

1769 

1770 

1771 1 

1772 1 

1773 1 

1774 1 

1775 1 

1776 1 

1777 1 
1770 1 
1779 1 
1700 1 
178] 1 
178? 1 

1783 1 

1784 1 
1705 1 

1786 1 

1787 1 

1788 3 

1789 1 

1790 1 

1791 1 
179? 1 


AXB 0049 
SX A NOROW 

bma lin< 

A X A NOROW 
SET *0001 
LDB 00049 C 
SET N0001 
LOR 00049 P SI 
HLT 0000 9966 

49 0000 0000 



1782 

52 

0049 

1832 


1832 

51 

9049 

0634 


0634 

41 

0984 

1855 


0984 

50 

9049 

1034 

variables 

1034 

27 

9000 

1184 

IN M0001 

1 1 8 A 

09 

6049 

1234 

COEFFICNTS 

1234 

27 

9015 

1284 

IN N0001 

1284 

09 

4049 

9050 


1735 

01 

0000 

9966 


1334 

49 

0000 

0000 


CALCULATE AND LEAVE NEXT 
VARIABLE IN UPPER 

SXA 0001 C0002 1013 51 0001 9051 
RSU M0001 A C0003 1014 61 9200 9052 
FMP N0001 A C0004 1015 39 9053 
BOV ZERUP C0005 CH< OVRFLO 1016 47 13H4 9054 
FAD N0002 A C0006 1017 32 9216 9055 
STU N0001 A C0007 * 1018 21 9215 9056 
N2A 51 37 1019 40 9050 1432 
RAU 8002 C0005 1384 60 0002 9054 


SUBROUTINE TO REDUCE MATRIX BY 
ONE COLUMN AND ONE ROW 


STD 

LINK 


REDUCE 

RSR 

8003 


MATRIX 

RAA 

8003 


BY 

SXA 

0001 

SHIFT 

ONE 

AXB 

0050 


COLUMN 

SET 

M0001 


AND 

LDB 

D0049 

P 

ONE 

SET 

M0001 


ROW 

STB 

DOOOO 

B 


SXA 

0001 



NZ A 

SHIFT 

LINK 



1748 24 1855 1434 
1434 83 8003 1484 
1404 80 8003 1534 
1534 51 0001 1504 
1584 52 0050 1604 
1684 27 9000 1734 
1734 09 40^9 1784 

1784 27 9000 1785 

1785 29 4000 1236 
1236 51 0001 1286 
1286 40 1584 1855 


ROUTINE TO LOAD PACKED VECTORS 
AND GENERATE AT0M1 AND SYS THE 
PROGRAM DEFINING CONSTANTS 

PRECEED PACKED VECTORS WITH 
A LOAD HUe TR ANSFER CARD WH T CH 
IS NOP GO TO V0001 

FOLLOW PACKED VECTORS WITH A 
LOAD HUP CARD W0RD1 EQUAL ZERO 

THE PROGRAM BYPASSES THE 
PROPELLANT IDENTIFICATION CARD 

1NDEXB TOTALS GASEOUS ATOMS 
INDEXC TOTALS CONDENSED PHASES 

OASIS SPECIFIES WHICH OF THE 
CONDENSED PHASES ARE USED 


179? REG R1951 I960 

1794 REG V 1 599 1659 

1795 RFG C9000 9000 

1796 EQU PCH10 1986 

1797 EQU ODIN C0048 

1798 EOU OASIS C0049 

1799 EQU RELAY C0050 

1800 1 

1801 8000 RCD R 000 1 1998 

180? R0001 00 0000 V0001 

1803 VOQ01 SET C0003 V0002 

1804 VO DO? LDB V0003 C0003 

1805 VO 00 3 PAA O000 C0004 

1806 VO 004 PAP 0000 C0005 

1807 VO 005 RAC OOOC CO 00 6 

1808 V0006 SUP 8003 C0007 

1809 V0PC7 STU RELAY C0008 

1810 V0008 RCD PCH10 9977 

1811 PCH10 NOP 0000 C0009 

1812 V0CC9 RAU R0001 C0010 

1813 V0C10 NZU C0011 C0042 

1814 V0011 RAU R 0002 C0012 

1815 V 0 o 1 2 NZU C0013 COOOB 

1816 VOn? RAU R0004 C0014 

18 17 VO 01 4 R*I C002 5 COO 15 

1818 V0O1 5 ?RT 0002 C001 6 

1819 V0Q16 NZU C0025 C0017 

1820 V 0 Q 1 7 SLT 0001 C0018 

1821 VOn 8 SLO ODIN C0019 

192? V 0 0 1 9 PAL 9002 C0020 


READ BAND 
IN PREGION 

WRD 10 PCH 


CONSOLE 

8000 

70 

1951 

1998 

TRANSFR CD 

1951 

00 

0000 

1599 


1599 

? 7 

9002 

1600 


1600 

09 

1601 

9002 

CLEAR 

1601 

80 

0000 

9003 

INDEX A B 

1602 

82 

0000 

9004 

AND C 

1603 

R 8 

GOOD 

9005 


1604 

1 1 

8003 

9006 


1605 

21 

9049 

9007 


1606 

70 

1966 

9977 


1986 

00 

0000 

9000 

ARE ALL 

1607 

60 

1951 

9009 

VECTORS IN 

1608 

44 

9010 

9041 

NO BYPASS 

1609 

60 

196? 

9011 

NONVECTORS 

1610 

4 4 

901? 

9 00 7 


1611 

60 

1 954 

9013 

IS this 

161? 

46 

90?a 

9014 

AN ATOM OR 

1613 

?0 

ooc? 

9015 

MOLECULE 

1614 

44 

9024 

9016 


1615 

35 

0001 

9017 


1616 

1 6 

9047 

9018 


1617 

5 5 

8002 

9019 



86 


1823 
132a 

1825 

1826 
1827 
1 R 2 8 
] 829 

1830 

1831 
183? 
1833 
18 3A 
1835 
18 36 

1837 

1838 

1839 
18*0 
18*1 
18*2 
1 8*3 
18** 
18*5 
18*6 
18*7 
18*8 
18*9 

1850 

1851 1 
185? 1 
1853 1 
185* 

1855 

1856 1 

1857 1 

1858 1 

1859 1 


vo;?o 

V 0 - 2 1 

von? 2 
von 2 3 
vcn ? * 
von? 5 
V0 P ?6 

V o n 2 7 

V 0 n ? 8 

V 0^29 

V 0 0 3 0 
vor.3i 
VOC32 
VC 03 3 
V003* 
V0H35 
V0C36 
VO r 3 7 
VO 03 8 

V 0 0 3 9 

VO“*r 

VOC* 1 
V0CA2 
V0O*3 
VOOA* 
VOO* 5 
V00*6 

V 0 0 A 7 


NZE 

COC25 


C0021 


A XP 

0001 


C0022 

GAS ATOM 

RAU 

RELAY 


C0023 

ARE ALL 

NZU 

C 002* 


C0037 

ATMS AHEAD 

HLT 

0000 


9988 


ldo 

ODIN 


C0026 

IT ISA 

STD 

RELAY 


C0027 

MOLECULE 

RAU 

R 000* 


C0C26 

IS PRODUCT 

BMI 

CO029 


C 0 0 3 7 

CONDENSED 

RAU 

OASIS 


COO 30 

*ES 

SRT 

0001 


C0C31 


STU 

OASIS 


C0032 

IS IT TO 

PAL 

8002 


C0033 

NZE 

C 0036 


C 0 0 3 * 

BE USED 

ral 

R 0002 


C 0 0 3 5 

YES 

A XC 

0001 


C0038 


ALO 

P0002 


C0038 

NO 

RAL 

R0002 


C0038 

S T ORE CODE 

S T L 

P00C1 

A 

C0039 

LOD 

R 000* 


COO* 0 

AND VECTOR 

STD 

P 0002 


C00*1 


AXA 

0002 


C0008 


RAU 

8007 


C00*3 


STL 

P0001 

A 

COO** 


LOD 

80C6 


C00*5 


STD 

ATOMl 


COO* 6 

STORE SYS 

AUP 

8001 


C00*7 

AND ATOMl 

STU 

SYS 


CHEK 



VO 0 A 8 
V 0 p * 9 


109? 
1893 
1 8 9 A 

1895 

1896 

1897 

1898 
1099 


1900 

1901 


CONSTANTS 


10 0000 OOOC 

11 mi mi 


ODIN 

OASIS 


BUILT IN ESTIMATES FOR 
ALL THE VARIABLES 


1860 

T0008 

10 

0000 

00*0 

186 1 

T 00 1 8 

10 

0000 

00*0 

186? 

TOO 28 

10 

0000 

00*0 

1863 

T0038 

10 

0000 

00*0 

186* 

TC048 

10 

0000 

00*0 

1865 

T0056 

10 

0000 

00*0 

1866 

T 0068 

10 

0000 

00*0 

1867 

T0078 

10 

0000 

00*0 

I860 

T0C88 

10 

0000 

00*0 

1 869 

TC098 

10 

0000 

00*0 

1870 

TO 1 08 

10 

0000 

00*0 

1871 

TO 1 1 8 

10 

0000 

00*0 

187? 

TC128 

10 

0000 

oo*c 

1873 

TO 138 

10 

OOCO 

00*0 

167* 

TCI *8 

1 0 

0000 

00*0 

1875 

TO 1 58 

10 

0000 

OQAO 

1876 

TO 168 

10 

0000 

00*0 

1877 

TCI 78 

10 

0000 

00*0 

1878 

TO 1 8 8 

10 

0000 

00*0 

1879 

TO 1 98 

10 

0000 

00*0 

I860 

TO 200 

10 

0000 

00*0 

1881 

TO 2 1 8 

10 

0000 

00*0 

1802 

TO? 2B 

10 

0000 

00*0 

1883 

T0238 

10 

0000 

00*0 

188* 

T0?*8 

10 

0000 

00*0 

1885 

T0258 

10 

0000 

00*0 

1 B06 

T0268 

10 

0000 

00*0 

1887 

T0278 

10 

0000 

00*0 

1868 

TO 26 B 

10 

0000 

00*0 

1889 

TO 298 

10 

0000 

00*0 

1890 

G0001 

50 

OOOC 

0051 

189 1 

G0002 

82 

*300 

0051 


ESTIMATES 
FOR LN OF 
COMPOS I TC : 
EOUI VALEN T 
TO PARTIA. 
PRESSURES 
OF I 

ATMOSPHERE 
FOR ALL 
GASEOUS 
PRODUCTS 


LN A ESTM.'T 
LN T ESTM T 


TO RUN AT CONSTANT ENTHALPY 
AT VARIOUS PRESSURE RATIOS 
LOAD THE FOLLOWING CA p D 


FIX H STL COMFX 


H F I X 


CONST H 


TO RUN FROZEN COMPOSITION 
CALCULATIONS LOAD THE 
FOLLOWING CARD 


H|_T 9999 


9999 


1618 

*5 

902* 

9020 

1619 

5 2 

0001 

9021 

1620 

60 

90*9 

9022 

1 6? 1 

it 4 

9 0/3 

9036 

162? 

01 

onoo 

9908 

1623 

69 

Q04 7 

9025 

162* 

2 * 

9 0* G 

9026 

1625 

60 

195* 

9027 

1626 

*6 

90? 5 

9036 

1627 

60 

90*0 

90 ?9 

1 h2 R 

30 

0001 

9030 

1629 

21 

90*8 

9031 

1630 

65 

800? 

9032 

1631 

*5 

9035 

9033 

1632 

65 

19 5 2 

903* 

1633 

50 

0001 

9037 

163* 

15 

195? 

00^7 

1635 

65 

195? 

9037 

1636 

20 

35 99 


163? 

69 

1 95* 

9039 

1630 

2* 

3 600 

90*0 

1639 

50 

OOC 2 

9007 

1 6*0 

60 

0007 

90*2 

16*1 

20 

3599 

90*3 

16*2 

69 

8006 

90** 

16*3 

2* 

06*2 

90*5 

16** 

10 

8001 

90*6 

16*5 

2 1 

0018 

0*99 

16*6 

10 

0000 

0000 

16*7 

1 1 

mi 

1 111 

0667 

10 

0000 

00*0 

0677 

10 

0000 

00*0 


0687 
0697 
0707 
0717 
07 2 7 
0737 
07A7 
0757 
0767 
0777 
0787 
0797 
0807 
0817 
0827 
0837 
08*7 
0857 
0867 
0877 
0887 
0897 
0907 
0917 
0927 
0937 
09A 7 
0957 
0001 
0002 


10 0000 00*0 
10 OOCO 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 OOCO 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
10 0000 00*0 
50 0000 0051 
82 *300 0051 


1*10 20 0111 176* 


1362 01 9999 9999 


tE 

1 


PAT 


)T *7' 


E-417 


87 


190? 1 
1903 1 
19 O'* 1 
190 3 1 

1906 1 

1907 1 
1 90P 1 

1909 1 

1910 1 

1911 1 
191? 1 

1913 1 

1914 1 

1915 1 

1916 1 

1917 1 

1918 1 

1919 1 

1920 1 

1921 1 

1922 1 

1923 1 

1924 1 

1925 1 

1926 1 

1927 

1928 

1929 1 

1930 1 

1931 1 

1932 1 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 


PUNCH ROUTINE FOR TESTING 
GENERAL ROCKET PERFORMANCE 
CALCULATION 

PUNCHING IS CONSOLE CONTROLLED 
BY POSITIONS 234 AND SIGN 
THESE POSITIONS MUST BE EITHER 
EIGHT OR NINE PUNCHING ON 8 

POSITION 2 PUNCHES ONE MINUS 
P/PO ETC AND NEGATIVE DELTAI 

POSITION 3 PUNCHES P T AAY 
AND THE COMPOSITIONS NI 

POSITION 4 PUNCHES THE 
REDUCED MATRIX 

A MINUS ON CONSOLE PUNCHES 
CORRECTION VARIABLES 

ANY COMBINATION OF THE FOUR 
PUNCHES MAY BE USED TOGETHER 

BLA 1656 1659 

BLA 0940 0959 


PUNCH THE DELS AT 


DELS 

RAL 

P CHOI 




ALO 

AT0M1 




LDD 

DELS1 


PUNCH 

DELS1 

RAA 

0000 




RAC 

0000 


DELS2 

DELS? 

RAU 

P0001 

A 



NZU 



DELS3 


STU 

9000 

A 



LDD 

T0010 

C 



STD 

9001 

A 



AX A 

0002 




AX C 

0010 


DELS 2 

DFLS3 

RAL 

8005 




ALO 

PCH02 




LDD 

NEXT 1 


PUNCH 


THIS TIME 


PUNCH 

ONE 

1181 

65 

1336 

0941 

MINUS 

A 

0941 

15 

0642 

0947 

OVER 

AO 

0947 

69 

0950 

1950 

ETC 


0950 

80 

oooo 

0956 



0956 

88 

0000 

1386 

PUNCH 

THE 

1386 

60 

3599 

0953 

PRODUCT 

0953 

44 

0957 

0958 

CODES 

AND 

0957 

21 

?200 

1436 

THE DELTAI 

1436 

69 

6669 

1486 



1486 

24 

9201 

0942 



0942 

50 

0002 

0948 



0948 

58 

0010 

1386 



0958 

65 

8005 

1536 



1536 

15 

09^0 

0945 



0945 

69 

y 2 33 

1950 


« 


DELX 


1 

1 

1 

1 


PUNCH THE SOLUTION TO THE 
CURRENT MATRIX 


LDD SYS+1 

RSA 8001 

SET 9000 

LDB D0049 A 

RAL PCH02 

ALO SYS+2 

LDD UNPAK PUNCH 


PUNCH THE 
SOLUTION 
TO THE 
CORRECTION 
MATRIX 


1564 69 

1586 81 

0943 27 

0949 09 

0952 65 

0946 15 

0944 69 


0079 1586 
8001 0943 
9000 0949 
2049 0952 
0940 0946 
0036 0944 
0101 1950 


CONSTANTS FOR THE PUNCH 
ROUTINE 



88 


1964 PCH01 06 RVOOO 0002 

1965 PCH02 06 9000 0000 

1966 1 

1967 PAT 


1336 06 9004 0002 

0940 06 9000 0000 


i 


1968 

BLA 1652 


1655 


1969 

RLA 0920 


0939 


1970 1 





1971 1 

PUNCH 

THE CURRENT 

variables 

1972 1 





1973 VARIA 

RAU L NT 



PUNCH TEMP 

1974 

LDO VAR01 


EXP E 

PRESSURE 

1975 VAR01 

STU 9000 



AND AAY 

1976 

LDD P 




1977 

STD 9001 




1978 

LDD A A Y 




1979 

STD 9002 




1980 

RAL PCH03 




1981 

LDD VAR02 


PUNCH 


1982 VAR02 

RAA 0000 



PUNCH THE 

1983 

RAC 0000 


VAR03 

PRODUCT 

1984 V A R 0 3 

RAU P0001 

A 


CODE AND 

1985 

NZU 


VAR1 1 

MOLE! OF 

1986 

STD 9000 

A 


EACH 

1987 

RAU P 0002 

A 


COMBI STION 

1988 

BMI VAR07 



PRODLCT 

1989 

RAU TOOOQ 

C 



1990 

LDD VAR05 


EXP E 


1991 VAR05 

STU 9001 

A 

VAR09 


1992 VAR07 

LDD T 0008 

c 



1993 

STD 9001 

A 

VAR09 


1994 V A P 0 9 

AX A 0002 




1 995 

AXC 0010 


VAR03 


1996 V A R 1 1 

RAL PCH02 




1997 

ALO 8005 




1998 

LDD NFXT2 


PUNCH 


1999 ] 





2000 1 





2001 1 

PUNCH OUT 

' THE MATRIX 

2002 1 





2003 MTRIX 

RAU SYS+1 




2004 

MP Y 50 




2005 

RAA 8002 


MTR01 


2006 MTR01 

SFT 9000 




2007 

LDD 0037 

A 



2008 

RAL PCH04 




2009 

LDO MTP03 


PUNCH 


2010 MTR03 

NZ A 


L I N< 1 


2011 

SX A 0050 


MTR01 


2012 1 





2013 1 





2014 1 

CONSTANTS 

FOR THE 

PUNCH 

2015 1 



ROUTINE 


2016 1 





2017 PC u O 3 

06 POOO 


0003 


2018 PCH04 

06 POOO 


0013 


20 lq 

PAT 





1392 

1657 

0920 

0927 

0921 

0928 

0936 
0951 
0959 

0922 

0929 
0935 

1653 

1658 

0923 
0955 

0925 

0926 

0930 

0924 

0931 

0937 
1652 

1659 

1654 

0932 


1503 

0933 
1656 

0934 
0939 
1655 
1736 
1786 
0938 


0954 

1686 


60 0002 1657 
69 0920 1850 
21 9000 0927 
69 1112 0921 
24 9001 0928 
69 1133 0936 
24 9002 0951 
65 0954 0959 
69 0922 1950 
80 0000 0929 
88 0000 0935 
60 3599 1653 
44 1658 1659 
24 9200 0923 
60 3600 0955 
46 0924 0925 
60 6667 0926 
69 0930 1850 
21 9201 0937 
69 6667 0931 
24 9201 0937 
50 0002 1652 
58 0010 0935 
65 0940 1654 
15 8005 0932 
69 1394 1950 


60 0079 0933 
19 0186 1656 
80 8002 0934 
27 9000 0939 
09 2037 1655 
65 1686 1736 
69 ’786 1950 

40 09?fi 1M9 

51 0050 0934 


06 9000 0003 
06 9000 0013 


E-417 



CA-12 E-417 


89 


2020 

1 



PROGRAM 

CHANGE 

70 CONTROL SIZE 





2021 

1 



OF APPLIED CORRECTION 





202?_ 

1 











2023 



RLA 

1652 


1655 






20 2 4 



PLA 

09?0 


0939 






2025 



PEG 

C9050 


9050 






2026 

1 



LOAD AVAILABILITY TABLE GIVEN 





2027 

1 



BY CARD 

NUMPFR 

1967 





2028 

1 











2029 


NEW00 

LDD 

MAGOO 


SOLVE 


1691 

69 

0951 

1698 

2030 


MAGOO 

LDD 

S YS+1 




0951 

69 

0079 

0932 

2031 



PSA 

8001 




0932 

81 

8001 

0938 

2032 



RAB 

8001 



BRING 

0938 

82 

*001 

1652 

2033 



RAC 

8001 



SOLUTION 

1652 

88 

3001 

165 6 

2034 



SET 

M0001 



VECTOR TO 

1658 

27 

9000 

0920 

2035 



LDB 

D0049 

A 

MAG01 

CORE 

0920 

09 

2049 

1653 

2036 


MAG01 

RAM 

M 000 1 

R 


MAKE ALL 

1653 

67 

9400 

0921 

2037 



STL 

N0001 

B 


COMPONENTS 

0921 

20 

9415 

0928 

2038 



NZR 



MAG03 

POSITIVE 

0928 

4 ? 

0931 

0933 

2039 



SXR 

0001 


MAGO 1 


0931 

53 

0001 

1653 

2040 


MAG03 

RAU 

N0001 

r 

MAG05 

FIND THE 

0933 

60 

9615 

0954 

2041 


MAG05 

FSR 

N 0000 

C 


LARGEST 

0954 

33 

9614 

0934 

2042 



BMI 



TOP 

COMPONENT 

0934 

46 

0937 

0939 

2043 



PAU 

NOOOO 

C 

MAG07 


0937 

60 

9614 

1654 

2044 


TOP 

FAD 

NOOOO 

C 

MAG07 


0939 

32 

9614 

1654 

2045 


M AGO 7 

sxc 

0001 



IF THE 

1654 

59 

0001 

0922 

2046 



NZC 

M AGO 5 



COMPONENT 

0922 

48 

0954 

0926 

2047 



FSB 

MAXMA 



IS LARGER 

0926 

33 

0 9 ? 9 

0955 

2048 



BMI 



MAG09 

THAN MAXMA 

0955 

46 

0959 

1659 

2049 



LDD 

F 0040 



STORE THE 

0959 

69 

1 149 

1655 

2050 



STD 

RATIO 


NEW01 

RATIO OF 

1655 

24 

0923 

1444 

205 1 


MAG09 

FAD 

MAXMA 



COMPONENT 

1659 

32 

0 R 29 

1656 

205? 



FDV 

MAXMA 



TO MAXMA 

1656 

34 

0979 

0970 

2053 



STU 

RATIO 


NFW01 


0930 

21 

0977 

1444 

2054 


MAXMA 

50 

0000 


0051 

MAX RATIO 

0929 

50 

ooon 

0051 

2055 


QO 006 

NZ 8 

C0001 




1025 

42 

9050 

0935 

2056 



FDV 

RATIO 


00007 


0935 

34 

09 73 

1026 

2057 


NEW21 

RAU 

D0048 

R 



0512 

60 

4 04 R 

1657 

2058 



FDV 

RATIO 


NEW22 


1657 

34 

0923 

1753 

2059 


NEW 1 8 

RAU 

D0049 




1157 

60 

0049 

0924 

2060 



FDV 

RATIO 


NEW 1 9 


0924 

34 

0923 

1803 

206} 


NEW60 

RSU 

D0048 




1806 

61 

0048 

0925 

206? 

• 


FDV 

RATIO 


NEW61 


0925 

34 

0923 

1104 

2063 

1 











2064 

1 











2065 

1 


PROGRAM 

MAY PC 

MODIEIFD TO 





2066 

1 


CONVERGE 

FOR ASSIGNED 





2067 

1 


TEMPERATURE AND 

PRESSURE BY 





2068 

1 


INCLUDING THE FOLLOWING STEPS 





2069 

1 











2070 



RLA 

0910 


0919 






2071 



PLA 

1650 


1651 






207? 

1 











2073 


MCO? 1 

RAU 

HO/R 




0570 

60 

0004 

0910 

2074 



STL 

RV001 


MC031 


0910 

20 

9005 

9786 

7076 


I T F R A 

LDD 

HOLD 1 




046? 

69 

09 1 6 

091 8 

7076 



STD 

PACKS 




0918 

24 

06 7 6 

0936 

20 7 7 



RAU 

SYS+2 


N E WOO 


0936 

60 

00' x 6 

1691 

2078 


HOLD 1 

SUP 

8003 


B 1 


0915 

1 1 

BOO' 3 

05 84 

2079 


DFRI V 

LDD 

H0LD2 




1 755 

69 

09 : 1 

09 ] 4 

2080 



STD 

BACKS * 




09] 4 

2 u 

06 76 

16 8 6 

7061 



RAU 

SYS + 2 


D 1 


1686 

60 

00 36 

174 1 

708? 


hold? 

RAU 

N 000 3 


B 1 


0911 

60 

9017 

0 5 84 

7 087 



PAJ 











90 


i 

8 1 
Q 

10 
1 1 
1? 

13 

lft 

18 

16 

17 

18 

19 

20 
2 1 
22 
23 
2ft 

25 

26 

27 

28 

29 

30 

31 

32 

33 1 
3ft 

35 

36 

37 
3 P 
39 
ftO 
M 
ft? 

ft 3 1 
ftft 1 
ft 5 1 
ft6 1 
ft 7 1 

ft8 CHEK 

49 

50 

51 

52 

53 
5ft 

55 1 

56 OXFUL 
37 

58 

59 

60 
61 

62 EOU 

63 
6ft 
65 
6 6 

67 

68 

69 

70 

71 1 

7? PRCNT 

7 3 
7ft 

75 

76 1 

77 EQUIV 
70 

79 

8 0 
81 
02 
83 
8ft 

85 

86 

87 

88 
09 

90 

91 1 

9 2 ATM 1 

93 
9ft 

95 

96 

97 1 

98 ATM 2 

99 
100 
101 
102 
103 


INPUT DATA ROUTINE 


*LR 

oooe 

0036 



*lr 

0050 

0036 



BLR 

0 100 

013 6 



RLR 

0150 

0186 



rLR 

0200 

0236 



PLR 

0 250 

0286 



PLR 

9300 

03 3 6 



RLR 

0350 

0386 



RLR 

0400 

0436 



RLR 

0450 

04B6 



BLR 

0500 

1999 



BLA 

098 7 

0999 



RLA 

1340 

1349 



REG 

G0001 

0015 



REG 

10040 

0045 



REG 

fi no 

1 1 10 



REG 

M9000 

9000 



SYN 

VFPLS 

0598 

♦ FUEL 

VALN 

SYN 

VFMIN 

0599 

-FUEL 

VALN 

SYN 

VXPLS 

0548 

+0X ID 

VAL^ 

SYN 

VXMIN 

0549 

-OX ID 

VALN 

SYN 

0/F 

0199 



SYN 

PCT F 

0299 



SYN 

EQRAT 

0399 

EOU I VLENC : 



RATIO 


SYN 

CHEX 

0499 



SYN 

BEGIN 

0000 



SYN 

PUNCH 

1950 



SYN 

PC 

FOOOO 



SYN 

I DENT 

F0039 



SYN 

R 

F 003 7 



SYN 

TEMPO 

9011 



SYN 

C0NS1 

1 140 



SYN 

PROP 

1904 




calculate number of moles of 

OXIDANT PER MOLE OF FUEL 


RAU 0/F 

NZU OXFUL 

RAU PCT F 

NZU PRCNT 

RAU 6QRAT 

NZU EOUIV 

HLT 9999 9999 

RAU 0/F 

FAO 10051 

STU TEMPO 

RAU 10053 

FDV TEMPO 

STU PCT F EOU 

RAU VXPLS 

FMP 0/F 

FAD VFPLS 

STU TEMPO 

RSU VXMIN 


FMP 

0/F 



FSB 

VFMIN 



FDV 

TEMPO 



STU 

EORAT 

ATM 1 


RAU 

10053 



FSB 

PCT F 



FDV 

PCT F 



STU 

0/F 

EGU 


RAU 

VXPLS 



FMP 

EORAT 



FAD 

VXMIN 



STU 

TEMPO 



RSU 

VFPLS 



FMP 

EORAT 



FSB 

VFMIN 



FDV 

TEMPO 



STU 

0/F 



FAD 

10051 



STU 

TEMPO 



RAU 

10053 



FDV 

TEMPO 



STU 

PCT F 

ATM 1 


RAU 

0/F 



FAD 

10051 



STU 

1 0/F 


1 PLUS C /F 

RAB 

0010 



RAA 

oooc 

ATM 2 


RAU 

0537 

A 

CALCUL*' E 

FMP 

0/F 


atoms pip 

FAD 

0587 

A 

GRAM OF 

FOV 

1 0/F 


PROPELLENT 

STU 

G0005 

A 


SXfi 

0001 




0ft99 60 0199 0037 

0037 ftft 0091 0092 
0092 60 0299 0087 

0087 ftft 0 1 ft 1 0 lft2 
0 1 ft2 60 0399 0137 

0137 ftft 0191 0192 

0192 01 9999 9999 

0091 60 0199 0187 

0187 32 0090 0237 

0237 21 9011 0095 

0095 60 00ft8 0287 

0287 3ft 9011 OlftO 
OlftO 21 0299 0337 

0337 60 05ft8 0387 

0387 39 0199 00ft9 

00ft9 32 0598 0ft37 

Oft37 21 9011 0 lft5 
0 lft 5 61 05ft9 0ft67 

0ft87 39 0199 0099 

0099 33 0599 0987 

0987 3ft 9011 0190 

0190 21 0399 0038 

Olftl 60 00ft 8 0088 
0088 33 0299 0136 

0138 3ft 0299 Olft9 

01ft9 21 0199 0337 

0191 60 05ft8 0188 

0188 39 0399 02ft9 
0 2ft9 32 0549 0238 

0238 21 9011 0195 

0195 61 0598 0288 

0288 39 0399 0349 

0349 33 0599 0338 

0338 3ft 9011 0241 

0241 21 0199 0388 

0388 32 0090 0438 

0438 21 90U 0245 

02ft5 60 0048 Oftee 

0488 34 90H 0291 

0291 21 0299 0038 

0038 60 0199 0988 

0988 32 0090 0039 

0039 21 009ft 0047 

0047 82 0010 0089 

0089 80 0000 0295 

0295 60 2537 0341 

0341 39 0199 0449 

0449 32 2587 0139 

0139 34 0094 0 1 44 

0144 21 2005 0189 

0189 53 0001 0345 


E-417 



E-417 


91 


104 



NZB 


ATM 3 


0345 

42 

0098 

0999 

105 



AXA 

0001 

ATM 2 


0098 

50 

00C1 

0295 

106 

1 










107 


ATM 3 

RAU 

0547 


CALCULATE 

0999 

60 

0547 

0239 

100 



FMP 

0/F 


ENTHALPY 

0239 

39 

0199 

1349 

109 



FAO 

0597 


OVER R 

1349 

32 

0597 

0289 

1 10 



FDV 

1 0/F 


PER GRAM 

0289 

34 

OO 9 A 

0194 

111 



FDV 

R 


OF 

0194 

34 

1146 

0046 

11? 



STU 

G0004 

DIST2 

propellant 

0046 

2 1 

0004 

0339 

113 

1 










114 

1 


AN EIGHT 

IN POSITION TWO OF 





115 

1 


CONSOLE 

CAUSES 

PUNCHING OF 





1 16 

1 


AO BO 

ETC 






1 17 

1 










1 18 


DI5T2 

RAU 

8000 



0339 

60 

8000 

0097 

119 



BD2 


IDEN 


0097 

92 

0389 

0439 

1 20 



RAL 

SPEC 1 



0389 

65 

0242 

0147 

121 



LDD 


PUNCH 


0147 

69 

0489 

1950 

12? 



RAL 

SPEC2 



0 48 9 

65 

0292 

0197 

123 



LDD 

I DEN 

PUNCH 


0197 

69 

0439 

1950 

1 24 

1 










125 


I DFN 

RAU 

E ORA T 


EOUIV RATO 

0439 

60 

0399 

0989 

126 



STD 

M 0006 



0989 

24 

9005 

0395 

127 



UFA 

55 I 



0395 

02 

0148 

0240 

128 



SRT 

0002 



0240 

30 

0002 

0247 

129 



SLO 

8002 



0247 

16 

0002 

0290 

130 



SLT 

0006 



0290 

35 

0006 

0340 

131 



AUP 

F0039 



0340 

10 

1148 

0390 

132 



STU 

M0011 


IDNTFICATN 

0390 

21 

9010 

0297 

1 33 



SLT 

0008 



0297 

35 

0008 

0440 

1 34 



NZU 


I DEN 2 


0440 

44 

009? 

0244 

135 



RAU 

M0011 



0093 

60 

9010 

0490 

136 



STU 

F0039 

I DEN 3 


0490 

21 

1148 

0990 

137 


IDEN2 

RAU 

F 0000 



0244 

60 

1 109 

1340 

1 38 



SRT 

0001 



1340 

30 

0001 

0347 

1 39 



SLO 

0002 



0347 

16 

8002 

0391 

140 



STD 

TEMPO 



0391 

24 

9011 

0397 

141 



SRT 

0008 



0397 

30 

0008 

0441 

142 



SLO 

9002 



0441 

16 

8002 

0491 

143 



ALO 

TEMPO 



0491 

15 

9011 

0991 

144 



SLT 

0001 



0991 

35 

0001 

0447 

145 



AUP 

M001 1 



0447 

10 

9010 

1341 

146 



STU 

M001 1 



1341 

21 

9010 

0342 

147 



STD 

F0039 

IDEN3 


0342 

24 

1148 

0990 

148 


IDFN3 

RAU 

FOOOO 


CONVERT 

0990 

60 

1109 

0392 

149 



STD 

M0009 



0392 

24 

9008 

0198 

150 



FDV 

CONS 1 


CHAM PRESS 

0198 

34 

1140 

0442 

151 



STU 

FOOOO 


TO ATMOSPH 

0442 

21 

1109 

0492 

152 



LDD 

0/F 


OX 1 D/FUEL 

0492 

69 

0199 

0992 

153 



STD 

M0007 


WT RATIO 

0992 

24 

9006 

0248 

154 



LDD 

PCT F 


PERCENT 

0248 

69 

0299 

1342 

155 



STD 

M0008 


FUEL 8 Y WT 

1 342 

24 

9007 

0193 

158 



RAU 

G0004 


ENTHALPY 

0193 

60 

0004 

0243 

159 



FMP 

R 



0243 

39 

1146 

0096 

160 



STU 

M0010 



0096 

21 

9009 

0293 

161 



RAL 

SPECS 



0293 

65 

0146 

0343 

162 



STU 

PROB 


CLEAR PROB 

0 34 3 

21 

1904 

0393 

163 



LDD 


PUNCH 


0393 

69 

0196 

1950 

164 



RAA 

0050 

I DEN 1 


0196 

80 

0050 

0A43 

165 


IDEN1 

SET 

9005 



0443 

27 

9005 

0348 

166 



LBB 

0537 A 



0348 

00 

2537 

0493 

167 



RAL 

SPEC3 



0493 

65 

0146 

0993 

168 



LDO 


punch 


0993 

69 

0246 

1950 

169 



SET 

9005 



0246 

27 

9005 

1343 

170 



LBB 

0542 A 



1343 

08 

254? 

0445 

171 



RAL 

SPECS 



0445 

65 

0146 

0294 

172 



LDD 


PUNCH 


0294 

69 

0497 

1950 

173 



SET 

9005 



0497 

27 

9005 

0344 

174 



LBB 

0547 A 



0344 

08 

2547 

0394 

175 



RAL 

SPECS 



0394 

65 

0146 

0444 

176 



STU 

M0009 


CLEAR 

0444 

21 

9008 

0494 

177 



STD 

M0010 


CLFAR 

0494 

24 

9009 

0994 

170 



LDD 


PUNCH 


0994 

69 

0997 

1950 

179 



NZA 


BEGIN 


0997 

40 

1344 

OOOO 

180 



RAA 

0000 

I DENI 


1344 

80 

0000 

0443 

181 

1 










18? 

1 



CONSTANTS 






183 

l 










184 


10051 

10 

0000 

0051 


0090 

10 

oooo 

0051 

185 


10053 

10 

0000 

0053 


0048 

10 

0000 

0053 

186 


55 I 

00 

oooo 

0055 


0148 

00 

oooo 

0055 

187 


R 

19 

8718 

0051 


1146 

19 

8710 

0051 

188 


CONS 1 

14 

6960 

0652 


1140 

14 

6960 

0652 

189 


SPEC 1 

00 

G0005 

0010 


0242 

00 

0005 

0010 

190 


SPEC2 

00 

G0004 

0001 


0292 

00 

0004 

0001 

191 


SPEC3 

00 

M0006 

0006 


0146 

00 

9005 

0006 

19? 


SPEC4 

00 

9005 

0006 


0495 

00 

9005 

0006 

193 



PAT 










92 


1 1 ROCKET PACKAGE EXCERPT FOR 

2 1 FOR GENERAL ROCKET PERFORMANCE 

3 1 


4 1 


5 


SYN 

PRoe 

1904 

A 


SYN 

EXP E 

i850 

7 


SYN 

SORT 

1900 

H 


SYN 

PUNCH 

1950 

9 


SYN 

LINK 

1855 

1 f> 


SYN 

CARDN 

1852 

11 


SYN 

JOOON 

1961 

12 


REG 

X 1 883 

1899 

13 


REG 

C9050 

9050 

14 


REG 

R 1 95 1 

1960 

15 


REG 

J 1962 

1967 

16 


REG 

K 1968 

1973 

17 


REG 

P 1 977 

1986 

1 8 


REG 

SI 98 7 

1995 

19 


BLR 

0000 

1832 

20 1 




21 1 





2? 1 


EXPONENTIAL 

23 1 





24 


REG 

X 1883 

1899 

25 1 





26 

EXP E 

STD 

LINK 


27 


FMP 

EX 1 

EXB1 

2 B 

E X 1 

43 

4294 

4850 

29 

EXR1 

SET 

9043 


30 


SET 

9043 


31 


LDfl 

xoooi 


32 


STU 

9040 


33 


FSB 

9043 


34 


RM y 


FXS2 

35 


FAO 

9 04 3 


36 


N2U 


EXB61 

37 


FAD 

9043 


38 


BMI 

EX03 


39 


RAU 

9040 


40 


BMI 


EXB4 

41 


LDD 

EX2 

EXB5 

42 

xoooi 

40 

0000 

0052 

43 

EXB2 

LDD 

8666 

EXR3 

44 

EXB3 

RAU 

0002 

LINK 

45 

EXB61 

RAU 

9040 


46 


FDV 

exi 


47 


FAD 

9056 

LINK 

48 

EXB4 

RSU 

8003 


49 


STU 

9040 


50 


LDD 

EX3 

EXB5 

51 

EXB5 

STD 

9041 


5? 


FAD 

half 


53 


UFA 

EXP58 

9049 

54 

X0 n 07 

STU 

9042 


55 


FAD 

8002 

9050 

56 

X0°08 

FAM 

9040 


57 


STU 

9040 


58 


LDD 

8005 


59 


STD 

9043 


60 


RSA 

0007 


61 


RAU 

8002 

9059 

62 

X0017 

FMP 

9040 

9044 

63 

X0002 

FAD 

9258 

9045 

64 

X0O03 

NZA 

9046 

9047 

65 

X0O04 

AX A 

0001 

9059 

66 

X 0 00 5 

FMP 

8003 

9048 

67 

X0OO6 

STU 

9040 

EXR6 

68 

FXP6 

RAA 

9043 


6 a 


RSU 

9042 


70 


SRT 

0002 


71 


RAU 

8003 


72 


AUP 

9040 


73 


STU 

9040 

9041 

74 

EX2 

RAU 

9058 


7? 


FDV 

9040 

LINK 

76 

EX3 

RAU 

8001 

link 

77 

HALF 

50 

0000 

0050 

78 

XO 009 

93 

2642 

6747 

79 

xooio 

25 

5491 

8048 

8 n 

XO n ll 

17 

421 1 

2049 

81 

xcr'i? 

7? 

9517 

3749 

8? 

xnoi7 

25 

4393 

5750 


X 0 0 1 4 

66 

2730 

8850 

04 

X0 n 15 

1 1 

5129 

2851 

85 

X0016 

10 

0000 

0051 

86 

EXP58 

00 

0000 

0058 

87 ] 

l 




88 1 





89 ] 

l 

SQUARE 

ROOT ROl 

90 1 

i 




91 


RFG 

C9050 

9050 

9 7 


R r G 

SI 987 

1995 

97 1 

! 




94 

FORT 

STD 

LINK 


94 


PM I 

STOP 


96 


NZE 


link 

97 


STU 

coono 


98 


SET 

COOOl 



READ BAND 


17 WORDS 


EXPO 

7 

: 850 

24 

1855 

1858 

NENT I AL 

7 

856 

39 

1861 

1911 

ENTRY 

7 

861 

43 

4 2 94 

4850 



911 

27 

9043 

18 66 


72 

866 

27 

9043 

1871 


7? 

: 871 

09 

1883 

1836 


72 

I 8-36 

21 

9040 

1843 



1843 

33 

904^ 

1873 



5 873 

.46 

1876 

1877 



1876 

32 

9043 

1905 



1905 

44 

1859 

1860 



1859 

32 

9043 

1039 



1839 

46 

1842 

1943 

EXPONENT 7 2 

5 943 

60 

9040 

1851 

MINUS 

72 

851 

46 

1854 

1856 

YES 

72 

854 

69 

1857 

1910 


72 

883 

40 

0000 

0052 

ALARM 

73 

877 

69 

8666 

1842 

ZFRO 


842 

60 

800? 

1855 



860 

60 

9040 

1867 



867 

34 

1861 

1862 



86? 

3? 

9058 

1855 

NO 

73 

856 

6 1 

8003 

1863 


73 

863 

21 

9040 

1921 


73 

; 921 

69 

1874 

1910 

FIND 

74 

: 910 

24 

9041 

1916 



1916 

32 

1869 

1845 

LAMBDA 

74 

1 C45 

02 

1848 

9049 


74 

1 689 

21 

9042 

1847 


74 

: 847 

32 

8002 

9050 


74 

890 

37 

9040 

1919 


74 

919 

21 

9040 

1927 

SAVE 

74 

927 

69 

8005 

1833 

A 

74 

833 

24 

9043 

1939 


74 

939 

81 

0007 

1945 


74 

945 

60 

800? 

9059 


74 

899 

39 

9040 

9044 


74 

884 

32 

9258 

9045 



88 5 

40 

9046 

9047 



886 

50 

0001 

9059 


74 

887 

39 

8003 

9048 


74 

888 

2 1 

9040 

1846 


75 

846 

80 

9043 

1906 


75 

906 

61 

904? 

1913 


75 

913 

30 

ooo? 

1870 



870 

60 

8003 

1878 


75 

878 

10 

9040 

1835 


75 

835 

21 

9040 

9041 


75 

857 

60 

9058 

1865 



865 

34 

9040 

1855 



874 

60 

8001 

1855 



869 

50 

0000 

0050 


76 

891 

93 

264? 

6747 


76 

892 

25 

5491 

8048 


76 

893 

17 

4211 

2049 


76 

894 

72 

9517 

3749 


76 

895 

25 

4393 

5750 


76 

896 

66 

2730 

8850 


76 

897 

11 

5129 

285 1 


76 

898 

10 

0000 

0051 



: 848 

00 

0000 

0058 


NINE WORDS 




1900 

24 

1055 

1908 

1908 

46 

1912 

1 864 

1864 

45 

1868 

1855 

I860 

21 

9049 

1875 

1875 

27 

9050 

1880 


E-417 



E-417 


93 


99 


LBP 

50001 



1880 

08 

1987 

1840 

100 


SPT 

0002 


CUTOFF EXP 

1840 

30 

0002 

1947 

101 


RAU 

8002 



1947 

60 

8002 

1907 

1 "2 


wpy 

00050 


HALF FXP 

1907 

19 

1914 

18 34 

10? 


SUP 

9002 


SAVE DEC 

1634 

11 

800? 

1844 

10a 


AUP 

ist e 



1844 

10 

1997 

1901 

105 


ALO 

800? 

C0001 


1901 

15 

8002 

9050 

106 

5000 1 

STU 

CnoiC 

C0002 


1987 

21 

9059 

9051 

107 

SO^O? 

PAM 

coooo 

C0003 

GET N 

1988 

60 

9049 

9052 

] 08 

soon 3 

FOV 

cnoio 

C0004 

DIV BY R 

1989 

34 

9059 

9053 

1 09 

S0004 

FAD 

cnoio 

C0005 

ADI* R to C 

1990 

32 

9059 

9054 

1 1^ 

S0O05 

FMP 

C0009 

C0006 

DIV BY 2 

1991 

39 

9058 

9055 

111 

S0O06 

SUP 

C0010 

C0007 

TEST FOR 

1992 

1 1 

9059 

9056 

1 1? 

soon? 

NZE 

C0008 


END 

1993 

45 

9057 

1948 

i 10 


9AU 

C0010 

LINK 


1948 

60 

9059 

1855 

1 u 

5 0 0 0 8 

AUP 

C0010 

C0001 


1994 

10 

9059 

9050 

1 15 

S0009 

50 

0000 

0050 

ONE HALF 

1995 

50 

0000 

0050 

1 16 

1 









117 

50 

00 

0000 

0050 


1914 

00 

0000 

0050 

1 18 

1ST F 

70 

OOOO 

0025 


1997 

70 

0000 

0025 

119 

STOP 

99 

9999 

9999 

SORT NEG X 

1912 

99 

9990 

9999 

120 

1 









121 

1 









12? 

1 

PUNCH 1 

SELL CARDS 






123 

1 









124 


PEG 

C9050 

9050 






125 


SYN 

JOOON 

1961 






1 26 


PEG 

J 1 962 

1967 

SIX WORDS 





127 


PFG 

K 1968 

1973 

SIX WORDS 





128 


rfg 

P 1977 

1986 

PUNCH BAND 





129 

1 









1 30 

PUNCH 

STD 

LINK 


START HERE 

1950 

24 

1855 

1909 

131 


LDD 

8003 



1909 

69 

0003 

1917 

13? 


SO A 

C0005 


1ST WORD 

1917 

22 

9054 

1924 

1 33 


SLT 

0004 



1924 

35 

0004 

1935 

1 34 


SOA 

C0006 


number wds 

1935 

22 

9055 

1942 

1 35 


SPT 

0002 



1942 

30 

0002 

1049 

1 36 


PAIJ 

8003 



1849 

60 

8003 

1915 

1 37 


SPT 

0002 



1915 

30 

0002 

1872 

1 38 


SET 

C0007 



1072 

27 

9056 

1928 

1 39 


loo 

WDCT6 



1 928 

69 

1881 

1 9 3 A 

1 40 


STO 

P0009 



1 934 

24 

1985 

1838 

14] 


LDD 

P90R 



1838 

69 

1909 

1918 

1 4? 


STO 

°0009 



1918 

24 

1989 

1837 

143 


LDO 

C0005 

PCH3 


1037 

69 

9059 

1944 

144 

PCH3 

STD 

P0007 



1 944 

24 

1903 

1936 

145 


ALO 

CARON 



1 936 

15 

1852 

1920 

146 


ALO 

ONE D 



1920 

15 

1923 

1879 

147 


SDA 

CAPDN 



1879 

22 

185? 

1922 

1 48 


STL 

P0010 

NZERO 


1922 

20 

1996 

1940 

1 4Q 

NZFRO 

PAIJ 

C0006 


IS NO OF 

1940 

60 

9055 

1998 

1 50 


SUP 

WDCT6 


WORDS LESS 

1990 

1 1 

1881 

1 937 

151 


PM 1 

LESS 6 

PCH4 


1937 

46 

1891 

1941 

15? 

PCH4 

STU 

C 0006 



1 °4 1 

21 

9055 

1949 

1 53 


PAiJ 

P0009 



1949 

60 

1985 

1946 

1 54 


SPT 

0004 



1946 

30 

0009 

1974 

155 


AUP 

XMCVF 


SET TO MOV 

1974 

10 

1929 

1933 

156 


ALO 

XLOC 


N WORDS 

19 33 

15 

1938 

1996 

1 57 


ALO 

C0005 

MOVEW 


1996 

15 

9059 

1853 

1 50 

MOVFW 

AU*> 

09999 

8002 


1053 

10 

1 9? 5 

8002 

1 59 

8 00? 

LDD 

LOC 

8003 


8002 

69 

1999 

8003 

1 60 

80C3 

STD 

PO007 

JOOON 


8003 

24 

1983 

1961 

1 6 1 

jnno" 

9AU 

C0006 

PCH2 


1961 

60 

9053 

1975 

16? 

jpnoi 

PAU 

C0006 

PCH2 


1962 

60 

9055 

1975 

163 

J0002 

ALO 

ONE D 

MOVEW 


1 q 63 

15 

1 9 ? 3 

1853 

164 

JO OP 3 

ALO 

ONF D 

MOVFW 


1964 

15 

1923 

1853 

165 

JO 004 

ALO 

ONE 0 

MOVEW 


1965 

15 

1923 

1853 

166 

J 0 0 0 5 

ALO 

ONE D 

MOVEW 


1966 

1 5 

1923 

1853 

167 

J9006 

ALO 

ONE 0 

MOVFW 


1967 

15 

1923 

1853 

168 

D CH? 

PCH 

P0001 



1975 

71 

1977 

1930 

169 


N2E 


LINK 


1930 

45 

190? 

1855 

1 70 


RAU 

P0007 



1902 

60 

1983 

1903 

171 


AU° 

P0009 



1903 

10 

1985 

1926 

17? 


STU 

C0005 

PCH3 


1926 

21 

9059 

1944 

173 1 










i 74 

L c S S6 

RAL 

C0006 



1841 

65 

9055 

1976 

175 


STD 

POO09 



1976 

24 

1 985 

1931 

176 


CRT 

0004 


CLEAR Z FRO 

1931 

30 

0009 

1882 

177 


ALO 

XCLER 

8002 


1082 

15 

19 3? 

0002 

1 78 

0 00? 

00 

0000 

K0001 


800? 

00 

oooo 

1968 

179 

KO'^Ol 

STU 

P00C1 

<0002 


1968 

21 

1977 

1 969 

1 SO 

K 000 ? 

STU 

P0002 

K0003 


1969 

21 

! 97« 

1970 

181 

<0003 

STU 

P0003 

<0004 


19 70 

21 

19 79 

1971 

1 S? 

<0004 

STU 

P0004 

<0005 


1971 

? 1 

1980 

1972 

1 83 

<0 r '05 

STU 

P 0005 

<0006 


197? 

2 1 

1981 

1973 

1 84 

<0006 

STU 

D O0C6 

PCH4 


1 973 

21 

198? 

1941 

1 95 1 










13 6 

X r L c 9 

no 

noon 

K 000 1 


1932 

00 

OOOO 

1968 

1 87 

Worj6 

00 

00^6 

onno 


1881 

00 

nn 06 

OOOO 

1 Sfi 

9999 

no 

nonfi 

9999 


1925 

00 

OOOO 

9999 

1 9 o 

XL nr 

LDO 

0000 

0003 


1938 

69 

oooo 

0003 

1 90 

XMOVF 

STO 

POOOO 

J0001 


1929 

? U 

1976 

1962 

191 

ra RON 

00 

OOnn 

0000 


1 «5? 

30 

OOOO 

OOOO 

197 

Or..'c o 

00 

nooi 

none 


1 9? 3 

00 

0001 

OOOO 

1 9? 


“LA 

0000 

183? 






1 94 


PAT 










94 


APPENDIX G 

FROZEN-COMPOSITION PROGRAM 


1 1 general frozen composition 

2 1 PERFORMANCE PROGR A^ 

3 1 

4 1 

5 1 

61 THIS PROGRAM ASSUMES THAT 

71 LN OF COMBUSTION COMPOSITION 

8 1 TEMPERATURE PRESSURE ENTHALPY 

9 1 MOLECULAR WEIGHT FACTOR A AND 

10 1 ALL NECESSARY THERMODYNAMIC 

11 1 COEFFICIENTS ARE ALREADY IN 


12 1 STORAGE 

13 1 

14 1 


15 

SYN LNX 

1700 

16 

SYN EXP E 

1850 

17 

SYN SORT 

1900 

16 

SYN PUNCH 

1950 

19 

SYN PCPCT 

0017 

20 

SYN COMEX 

0061 

21 

SYN START 

0500 

22 

SYN TEMPI 

1048 

23 

SYN TEMP2 

1049 

24 

SYN PC 

1109 

25 

SYN ROB 

1193 

26 

SYN LINK 

1835 

27 

SYN CARDN 

1852 

28 

SYN PROB 

1904 

29 

REG A 1 347 

1349 

30 

REG B 1 247 

1249 

31 

REG C9050 

9050 

32 

PEG F1110 

1149 

33 

REG G0001 

0015 

34 

REG M9000 

9000 

35 

REG P 1 599 

1659 

36 

REG R 1 075 

1099 

37 

REG T0660 

0959 

38 

BLR 1832 

1999 

39 

EOU PCP 

F0001 

40 

EGU TEE 

F0002 

41 

EOU P 

F 0003 

42 

EOU H 

F 0004 

43 

EOU I 

F 0005 

44 

EOU M 

F 0006 

45 

EOU CF 

F 0007 

46 

EOU EPSIL 

F0008 

47 

EOU MACH 

F 0009 

48 

EOU 1 VAC 

F0010 

49 

EOU CP 

F 001 1 

50 

EOU GAMMA 

F0012 

51 

EOU S 

F 001 5 

52 

EOU CSTAR 

F0020 

53 

EOU AW 

F0021 

54 

EOU HSTR 

F0023 

55 

EOU AAY 

F 0024 

56 

EOU HC 

F 0025 

57 

ECU PLNP 

F 0026 

58 

EOU SC 

F0027 

59 

EOU AWT 

F0028 

60 

EOU RA 

F 0029 

61 

EOU RM 

F0030 

62 

EOU CONS 1 

F 003 1 

63 

EOU C0NS2 

F0032 

64 

EOU C0NS3 

F0033 

65 

EOU C0NS4 

F0034 

66 

EOU C0NS5 

F0035 

67 

EOU R 

F0037 

68 

EOU GC 

F 0038 

69 

EOU IDENT 

F 0039 

70 

EOU ONE 

F0040 

71 

EOU LNT 

G0002 

72 

EOU PO 

G0015 

73 

EOU S CPR 

1347 

74 

EOU S HRT 

1348 

75 

EOU S SR 

1349 

76 

EOU CODE 

9000 

77 

EOU T 

9003 

78 

EOU A 

9021 

79 

EOU B 

9022 

80 

EOU C 

9023 

81 

EOU D 

9024 

82 

EOU E 

9025 

83 

EOU F 

9026 

84 

EOU N I 

9027 

85 

EOU TWO 

9028 

86 

EOU THREE 

9029 

87 

EOU FOUR 

9030 

88 

EOU TEM 1 

9049 

89 

EOU BASIC 

9050 

90 

EOU TEMPO 

9059 


E-417 



E-417 


95 


92 

START 

RSM IDENT 



93 


STL IDENT 

XI 


94 1 





95 1 


CONVERT 

LNNI 

TO i 

96 

XI 

RAA 0000 



97 


RAC 0000 

X2 


98 

X 2 

RAL POOOl A 



99 


N2E 

X5 


100 


RAU P0002 A 



101 


BMI X3 

X4 


102 

X4 

RAU T0008 C 



103 


LDD 

EXP 

E 

104 


STU T0008 C 

X 3 


105 

X3 

AX A 0002 



106 


AXC 0010 

X2 


107 1 


CLEAR F REGION 

108 

X5 

SET M0004 



109 


LDB F0004 



110 


RSA 0026 



1 1 1 


RAU 8003 

X6 


112 

X 6 

STL F0030 A 



113 


N2 A 

X 7 


114 


AX A 0001 

X6 


115 1 





116 1 


SAVE TEE 

HC M 

AND 

117 1 


OF COMBUSTION 


0500 68 1148 0053 

REVPS SIGN 0053 20 1148 0051 


80 0000 0057 
88 0000 0063 
65 3599 0103 

45 0056 0107 
60 3600 0055 

46 0058 0059 
60 6667 0021 
69 0024 1850 
21 6667 0058 
50 0002 0064 
58 0010 0063 

27 9003 0062 
09 1113 0016 
81 0026 0022 
60 8003 0029 
20 3139 0042 
40 0045 0046 
50 0001 0029 


LOD M0024 AAY 

STD F0024 

LDD M0025 HC 

STD F 0025 
LDD TEE 
STD T 

LDD M0006 f* 

STD F0006 

COMPUTE R/AAY AND STORE IN RA 
RAU R 
FDV AAY 
STU RA 

COMPUTE R/M AND STORE IN RM 
RAU R 
FDV M 
STU RM 
RAU 8003 
STL COMEX 

FOR COMBUSTION OUT IS 21 
LDD 21 

STD OUT Y 1 

LOOP TO COMPUTE 
SUM N I CPR 
SUM N I HRT 
SUM N I SR 

LOOP is COMPLETED WHEN 2ER0 
APPEARS IN P REGION 
THEN GO TO OUT 
OUT FOR COMB IS 21 
OUT FOR THROAT AND EXIT IS 
FR02N 


J 8003 
S CPR 
S HRT 
S SR 
0000 
0000 

. P0001 A 

CODE 
9020 
T0001 C 
9020 
CODE 


CLER S CPR 
CLER S HRT 
CLER S SR 


0046 69 

0052 24 

0036 69 

0092 24 

0037 69 

0114 24 

0020 69 

0026 24 


0018 60 1 1 46 0101 
0101 34 1133 0033 
0033 21 1138 0041 


0041 60 1146 0151 
0151 34 1115 0065 
0065 21 1139 0142 
0142 60 8003 0049 
0049 20 0061 0164 


0164 69 0067' 0070 

0070 24 0023 0076 


0076 60 8003 

0083 20 1347 

0000 20 1348 

0201 20 1349 

0102 80 0000 
0108 88 OOOO 

0214 65 3599 

0153 45 0106 

0106 20 9000 

0264 27 9020 

0019 08 6660 

0113 60 9020 

0071 U 9*00 i 
0079 44 0133 < 

0133 01 0000 I 



96 




0034 27 9028 0039 

170 TH009 

SET TWO 

0039 09 1247 0050 

171 

LDB B0001 

0050 60 90?4 0157 

17? 

PAU D 

0157 39 9003 0060 

17* 

F M P T 

0060 32 9023 0089 

174 

FAC C 

0089 39 Q 003 0192 

175 

FMP T 

0192 32 9022 0121 

176 

FAD B 

0121 39 9003 0074 

177 

FMP T 

0074 32 9021 0203 

178 

FAD A 

0203 39 9027 0156 

179 

FMP N I 

0156 32 1347 0073 

18C 

FAD S CPR 

0073 21 1347 0100 

181 

STU S CPR 

0100 60 902^ 0207 

182 

RAU 0 

0207 34 9030 0110 

183 

FDV FOUR 

0110 39 9003 0163 

184 

FMP T 

0163 21 9059 0171 

185 

c.TU TEMPO 

0171 60 9023 0129 

1 86 

RAU C 

0129 34 9029 0032 

187 

FDV THREE 

0032 32 9059 0111 

188 

FAD TEMPO 

0111 39 9003 0314 

1 89 

FMP T 

0314 21 9059 0221 

1 90 

STU TEMPO 

0221 60 9022 0179 

191 

RAU e 

0179 34 9028 0082 

1 92 

FDV TWO 

0082 32 9059 0161 

193 

FAD TEMPO 

0161 39 9003 0364 

194 

FMP T 

0364 21 9059 0271 

195 

STU TEMPO 

0271 60 9025 0229 

196 

RAU E 

0229 34 9003 0132 

197 

FDV T 

0132 32 9059 0211 

198 

FAD TEMPO 

0211 32 9021 0091 

1 9 9 

FAD A 

0091 39 9027 0044 

20C 

FMP N I 

0044 32 1348 0025 

201 

FAD S HRT 

0025 21 1348 0251 

20 2 

STU S HRT 

0251 60 9024 0109 

203 

RAU 0 

0109 34 9029 0112 

204 

FDV THREE 

0112 39 9003 0115 

205 

FMP T 

0115 21 9*59 0123 

206 

STU TEMPO 

0123 60 9023 0031 

207 

RAU C 

0031 34 9020 0084 

208 

FDV TWO 

0084 32 9059 0213 

209 

FAD TEMPO 

0213 39 9003 0066 

2 1C 

FMP T 

0066 32 9022 0095 

211 

FAD B 

0095 39 9003 0048 

2 1 2 

FMP T 

0048 21 9059 0105 

213 

STU TEMPO 

0105 60 9021 0263 

214 

RAU A 

0263 39 0002 0152 

215 

FMP LNT 

0152 32 9059 0001 

216 

FAD TEMPO 

0081 32 9026 0261 

217 

FAD F 

0261 39 9027 0414 

218 

FMP N 1 

0414 32 1349 0075 

219 

FAD S SR 

0075 21 1349 0202 

229 

STU S SR 

0202 50 0002 0158 

221 

AX A 0002 

0158 58 0010 0214 

222 

AXC 0010 T 2 


2 23 1 
2 24 1 

TEST FOR CONVERGENCE 


225 1 

IS DEL S ZERO 


226 1 
2 2 7 1 

YES MEANS CONVERGENCE 


2 28 1 

~GO TO 3THER 



229 1 

230 1 

231 1 

232 1 

233 FROZN 

234 
2 3 3 

236 

237 

238 

239 

240 

241 
2 42 
243 
2 4 ** 

245 

246 

247 


NO MEANS NO CONVERGENCE 

CORRECT T AND THEN GO TC Y1 


RAU 

plnp 


FAD 

S SR 


STU 

TEM 1 


FDV 

SC 


FSB 

EINSS 


NZU 


BTHER 

RSU 

TEM 1 


FAD 

SC 


FDV 

S CPR 


FAD 

LNT 


STU 

LNT 


ldo 


EXP E 

STU 

T 


ldd 

FROZN 


STD 

OUT 

VI 


0150 60 1135 0139 
0139 32 1 349 0125 
0125 21 9049 0183 
0183 34 1136 0086 
0086 33 0189 0165 
0165 44 0*69 0120 
0069 61 9049 0027 
0027 32 1136 0313 
0313 34 1347 0047 
0047 32 0002 0279 
0279 21 0002 0155 
0155 69 0208 1850 
0208 21 9003 0215 
0215 69 0150 0253 
0253 24 0023 0076 


E-417 


97 



248 

1 








" 

249 

1 


AFTER 

CONVERGENCE TEST IF 






250 

1 


CORRECT TDATA IS IN STORAGE 






251 

1 


YES GO 

TO FIX 






252 

1 


NO GO 

TO TDATA 






253 

1 









254 


BTHER 

SET 9050 


0120 

27 

9050 

0175 


255 



LBB TEMPI 


0175 

08 

1048 

0301 


256 



RAU 9051 


0301 

60 

9051 

0159 


257 



FSB T 


0159 

33 

9003 

0239 


258 



BMI TDATA 


0239 

46 

0242 

0043 


259 



RAU T 


0043 

60 

9003 

0351 


260 



FSB 9050 


0351 

33 

9050 

0131 


261 



BMI TDATA 

FIX 

0131 

46 

0242 

0035 


262 

1 









263 

1 


READ THERMAL DATA 






264 

1 


WHEN CORRECT TDATA IS FOUND 






265 

1 


GO ‘ 

ro y i 






266 


TDATA 

RAA 0000 


0242 

80 

0000 

0098 


267 



RAC 0000 

TDOOl 

0098 

88 

0000 

0054 

tr 

268 


TDOOl 

RCD BASIC 

BELL 

0054 

70 

9050 

0104 

H 

269 


BASIC 

RAL 9051 

RDB 

9050 

65 

9051 

1193 

i 

270 


ROB 

SLT 0004 


1193 

35 

0004 

0303 

W 

271 



STU 9051 


0303 

21 

9051 

0311 


272 



SUP P0001 

A 

0311 

11 

3599 

0353 


273 



N2U TD005 


0353 

44 

0257 

0258 


274 



LDD T0008 

C 

0258 

69 

6667 

0170 


275 



STD 9058 


0170 

24 

9058 

0126 


276 



SET 9051 


0126 

27 

9051 

0181 


277 



SBB T0001 

C 

0181 

28 

6*60 

0363 


278 



AX A 0002 


0363 

50 

0002 

0119 


279 



AXC 0010 

TDOOl 

0119 

58 

0010 

0054 


280 


TD005 

HLT 0000 

7766 

0257 

01 

0000 

7766 


281 


BELL 

RAU 9051 


0104 

60 

9051 

0361 

K) 

282 



FSB T 


0361 

33 

9003 

0141 


283 



BMI TDATA 


0141 

46 

0242 

0145 

1 

284 



RAU T 


0145 

60 

9003 

0403 

o 

285 



FSB 9050 


0403 

33 

9050 

0233 


286 



BMI TDATA 


0233 

46 

0242 

0087 


287 



SET 9050 


0087 

27 

9050 

0292 


268 



SBB TEMPI 

Y1 

0292 

28 

1048 

0076 


289 

1 









290 


FIX 

LDD T 


0035 

69 

9003 

0191 


291 



STD TEE 


0191 

24 

1111 

0464 


292 



LDD PO 


0464 

69 

0015 

0068 


293 



STD P 

21 

0068 

24 

1112 

0067 


294 

1 









295 



EOU PC P 

M0001 






296 



EQU TEE 

M0002 






297 



EOU P 

M0003 






298 



EQU H 

M0004 






299 



EQU I 

M0005 






300 



EQU M 

M0006 






301 



EQU CF 

M0007 






30 2 



EQU EPSIL 

M0008 






303 



EQU MACH 

M0009 






304 



EQU I VAC 

M0010 






305 



EQU CP 

M0011 






306 



EQU GAMMA 

M0012 






307 



EQU S 

M0015 






308 



EQU CSTAR 

M0020 






309 



EQU AW 

M0021 






310 



EQU HSTR 

M0023 






311 



EQU AAY 

M0024 






312 



EQU HC 

M0025 






313 



EQU PLNP 

M0026 






314 



EQU SC 

M002T 






315 



EQU AWT 

M0028 






316 



EQU RA 

M0029 






317 



EQU RM 

M0030 






318 



EQU CONS 1 

M0031 






319 



EQU CONS2 

M0032 





_ 

320 



EQU CONS3 

M0033 






321 



EQU CONS4 

M0034 






322 



EQU CONS5 

M0035 






323 



EQU R 

M0037 






324 



EQU GC 

M0038 






325 



EQU I DENT 

M0039 






326 



EQU ONE 

M0040 






327 1 
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328 1 

329 1 

330 1 

331 1 

332 21 

333 

3 34 1 

335 1 

336 

337 

338 

339 1 

340 1 

341 

342 

343 

344 

345 

346 1 

347 1 

348 

349 

350 

351 

352 1 

353 1 

354 1 

355 1 

356 1 

357 

358 

359 1 

360 1 

361 1 

362 

363 

364 

365 

366 

367 

368 1 

369 1 

370 1 

371 TOREX 

372 

373 

374 

375 

376 

377 

378 1 

379 1 

380 1 

381 1 

382 1 

383 1 


CALCULATE ROCKET PERFORMANCE 
PARAMETERS 

SET M0001 
LDB F0001 

COMPUTE CP 
RAU S CPR 
FMP RA 
STU CP 

COMPUTE GAMMA 
FSB RM 
STU TEM 1 
RAU CP 
FDV TEM 1 
STU GAMMA 

COMPUTF ENTHALPY 
RAU S HR T 
FMP TEE 
FMP RA 
STU H 

TEST COMEX 

ZERO MEANS COMBUSTION 
NONZERO MEANS THROAT OR EXIT 


RAU COMEX 
NZU TOREX 

COMPUTE PSEUDO ENTROPY FOR 
COMBUSTION 
RAU S SR 
STU SC 
FMP RA 
STU S 

PSU UNITY SET COME' 

STU COMEX PNCH FOR THROAT 

COMPUTE PSEUDO ENTROPY FOR 
THROAT AND EXIT 
RAU S SR 
FAD PLNP 
FMP RA 
STU S 
RAU COMEX 
SMI THROT EXIT 

EQU TWO BOOOl 

CONVERGENCE TEST FOR THROAT 
IS HC EQUAL TO HSTR 
IF YES GO TO CSTR1 
IF NO THEN CORRECT P AND GO 
TO FROZN 


384 1 


385 

THROT 

RAU TEE 


386 


FDV M 


387 


FMP R 


388 


FDV TWO 


389 


STU RT/2M 


390 


FMP GAMMA 


391 


FAD H 


392 


STU HSTR 


393 


FDV HC 


394 


FSB E INS 


395 


NZU 

CSTRI 

396 


RAU GAMMA 


397 


FAD ONE 


398 


FMP RT/2M 


399 


STU TEMPO 


400 


RAU HC 


401 


FSB HSTR 


402 


FDV TEMPO 


403 


FAD ONE 


404 


FMP P 


405 


STU PO 


406 


RAU PC 


407 


FDV PO 


408 


STU ROOD 2 


409 


STU FOOD 1 


410 


LDD 

LNX 

411 


FMP PC 


412 


STU F 0026 

FROZN 

413 

CSTR1 

LDD CSTR2 

SEVRL 

4 1 4 

1 




0067 27 9000 0072 

0072 09 1110 0413 


0413 60 1347 0401 
0401 39 9028 0154 
0154 21 9010 0411 


0411 33 9029 0241 
0241 21 9049 0099 
0099 60 9010 0307 
0307 34 9049 0160 
0160 21 9011 0117 


0117 60 1348 0453 
0453 39 9001 0206 
0206 39 9028 0209 
0209 21 9003 0167 


0167 60 0061 0265 

0265 44 0169 0220 


0220 60 1349 0503 
0503 21 9026 0461 
0461 39 9028 0514 
0514 21 9014 0321 
0321 61 0124 0329 
0329 21 0061 0564 


0169 60 1349 0553 
0553 32 9025 0283 
0283 39 9028 0136 
0136 21 9014 0093 
0093 60 0061 0315 
0315 46 0118 0219 


one 60 9001 0225 

0225 34 9005 0028 
0028 39 9036 0231 

0231 34 1247 0097 
0097 21 0252 0205 
0205 39 9011 0308 

0308 32 9003 0137 
0137 21 9022 0195 
0195 34 9024 0148 
0148 33 0451 0077 
0077 44 0281 0182 
0281 60 9011 0289 
0289 32 9039 0269 
0269 39 0252 0302 
0302 21 9059 0259 
0259 60 9024 0217 
0217 33 9022 0147 
0147 34 9059 0200 
0200 32 9039 0379 
0379 39 9002 0232 

0232 21 0015 0168 
0168 60 1109 0463 
0463 34 0015 0365 
0365 21 1076 0429 
0429 21 1110 0513 
0513 69 0116 1700 
0116 39 1109 0309 

0309 21 1135 0150 
0182 69 0085 0038 





99 


H 

* 


d 

d 

j 

a 

3 

d 

4 
) 


415 1 

416 

417 

418 1 

419 1 

420 

421 


STORE A/W FOR THROAT 
CSTR2 RAU AW 
STO AWT 

COMPOTE CSTAR 
FMP PC 
FMP GC 


42? 

FMP CONS 1 

423 

STU CSTAR 

424 

LDD UNITY 

425 

STD COMEX 

426 1 


427 EXIT 

LDD REMAN 

428 1 


429 1 

COMPUTE 

430 REMAN 

RAU I 

431 

FMP GC 

432 

FDV CSTAR 

433 

STU CF 

434 1 


435 1 

COMPUTE 

436 

RAU AW 

437 

FDV AWT 

438 

STU EPSIL 

439 1 


440 1 

COMPUTE 

441 

RAU AW 

442 

FMP P 

443 

FMP CONS 1 

444 

FAD I 

445 

STU I VAC 

446 1 


447 1 

COMPUTE 

448 

RAU GAMMA 

449 

FMP TEE 

4 5 0 

FMP C0NS2 

451 

FDV M 

452 

LDD MACH 1 

453 MACH 1 

STU TEMPO 

454 

RA'J l 

455 

FDV TEMPO 

456 

STU MACH 

457 SEVRL 

STD LJNK1 

458 1 


459 1 

COMPUTE : 

460 

RAU HC 

46 1 

FSB H 

462 

FDV C0NS3 

463 

LDD IMPUL 

464 IMPUL 

FMP C0NS4 

465 

STU I 


reman 


sevrl 


SET COMEX 
FOR EXIT 


SORT 


PNCH 


SORT 


466 1 

467 1 

468 

469 

470 

471 

472 

473 

474 

475 1 


COMPUTE A/W 
RAU TEE 
FOV P 
FDV M 
FDV I 
FMP C0NS2 
FDV C0NS1 
STU AW 


LINK1 


0085 60 9020 0143 

0143 24 9027 0169 


0149 39 1109 0359 
0359 39 9037 0162 
0162 39 9030 0415 
0415 21 9019 0173 
0173 69 0124 0127 
0127 24 0061 0614 

0219 69 0614 0038 


0614 60 9004 0371 
0371 39 9037 0174 
0174 34 9019 0177 
0177 21 9006 0135 


0135 60 9020 0193 
0193 34 9027 0096 
0096 21 9007 0603 


0603 60 9020 0511 
0511 39 9002 0964 
0964 39 9030 0267 
0267 32 9004 0197 
0197 21 9009 0255 


0255 60 9031 0563 
0563 39 9001 0166 
0166 39 9031 0319 
0319 34 9005 0122 
0122 69 0275 1900 
0275 21 9059 0333 
0333 60 9004 0291 
0291 34 9059 0094 
0094 21 9008 0564 
0038 24 0341 0144 


0144 60 9024 0501 
0501 33 9003 0331 
0331 34 9032 0134 
0134 69 0187 1900 
0187 39 9033 0040 
0040 21 9004 0247 


0247 60 9001 0305 
0305 34 9002 0358 
0358 34 9005 0561 
0561 34 9004 1014 
1014 39 9031 0317 
0317 34 9030 0270 
0270 21 9020 0341 


476 

1 

477 

PNCH 

478 


479 


480 


481 


482 


483 


484 


485 

PNCH 1 

486 


487 


488 


489 


490 


491 


492 

PNCH2 

493 

SPEC 

494 

COMP 1 

495 1 



PUNCH RESULTS THEN GO TO PCP 
RAU 8003 
STL CARDN 


SET MOOOl 
STS F0001 
RSA 0005 
RAB 0004 
LOD IDENT 
STD MOO 1 1 
NZ6 

SXB 0001 
AXA 0005 
SET M0006 
LBB F0001 A 
NZ A SPEC 
RAL SPEC 1 
LDD PNCH1 
RAL SPEC2 
LDD FROZN 


PNCH 1 
PCP 1 


PNCH2 
PUNCH 
PNCH2 
PCP 1 


0564 60 8003 0421 
0421 20 1052 0355 
0355 27 9000 0210 
0210 29 1110 0613 
0613 81 0005 0369 
0369 82 0004 0325 
0325 69 9038 0381 
0381 24 9010 0237 
0237 42 0090 0391 
0090 53 0001 0146 
0146 50 0005 0352 
0352 27 9005 0357 
0357 08 3110 0963 
0963 40 0216 0367 
0367 65 0320 0375 
0375 69 0237 1950 
0216 65 0419 0375 
0250 69 0150 0391 



100 


4 96 1 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 ' 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 
5 2 C 

521 

522 

523 

524 

525 

526 

527 

528 

529 1 

530 1 

531 1 

532 1 


EQU PCP F0001 

EOU TEE F 0002 

EQU P F0003 

EQU H F 0004 

EQU I F 0005 

EQU M F0006 

EQU CF F0007 

EQU EPSIL F0008 

EQU MACH F0009 

EQU I VAC F0010 

EQU CP F0011 

EQU GAMMA F0012 

EQU S F0015 

EQU CSTAR F0020 

EQU AW F0021 

EQU HSTR F 0023 

EQU AAY F 0024 

EQU HC F0025 

EQU PLNP F0026 

EOU SC F0027 

EQU AWT F 0028 

EQU RA F0029 

EQU RM F0030 

EQU CONS 1 F0031 

EQU C0NS2 F 003 2 

EQU C0NS3 F0033 

EQU C0NS4 F 0034 

EQU C0NS5 F0035 

EQU R F0037 

EQU GC F0038 

EQU IOENT F0039 

EQU ONE F0040 


ADVANCE PRESSURE RATIO PC 3 
COMPUTE PC LN PC/PE 
ANO STORE IN PLNP 


533 1 

534 PC P 1 

535 

536 

537 

538 

539 
54C 

541 

542 

543 

544 

545 

546 


RAL PCPCT 
ALO UNITY 
STL PCPCT 
RAA 8001 
SLT 0004 
STL PROB 
RAU ROOOO A 
STU P CP 
NZU 

ldd 

FMP PC 
STU PLNP 
RAU PC 


9999 

LNX 


FINISHED 


547 FDV PCP 

5 4 g STU PO FROZN 

5 49 1 

550 t CONSTANTS FOR PROGRAM 

551 ONE 10 0000 0051 

552 B0001 20 0000 0051 

553 B0002 30 0000 0051 

554 B0003 40 0000 0051 

555 CONS 1 14 6960 0652 

556 C0NS2 86 4554 0052 

557 CONS 3 10 0000 0054 

558 C0NS4 29 4980 0053 

559 CONS 5 57 0000 0050 

*6 n R 19 8718 0051 

561 GC 32 1740 0052 

66 2 E I NS 00 1000 0053 

563 EINSS 01 0000 0052 

^64 UNITY 00 0000 0001 

565 SPEC 1 07 M0006 0006 

566 SPEC 2 00 M0006 0006 

567 1 


0391 65 0017 0471 
0471 15 0124 0479 
0479 20 0017 0370 
0370 80 8001 0176 
0176 35 0004 0287 
0287 20 1904 0407 
0407 60 3074 0529 
0529 21 1110 1013 
1013 44 0417 9999 
0417 69 0420 1700 
0420 39 1109 0409 
0409 21 1135 0088 
0088 60 1109 1063 
1063 34 1110 0260 
0260 21 0015 0150 


1149 10 0000 0051 

1247 20 0000 0051 

1248 30 0000 0051 

1249 40 0000 0051 

1140 14 6960 0652 

1141 86 4554 0052 

1142 10 0000 0054 

1143 29 4980 0053 

1144 57 0000 0050 

1146 19 8718 0051 

1147 32 1740 0052 

0451 00 1000 0053 

0189 01 0000 0052 

0124 00 0000 0001 

0320 07 9005 0006 

0419 00 9005 0006 


E-417 


E-417 


101 


568 1 

569 1 

570 1 

571 1 

572 1 

573 

574 l 

575 LNX 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 
613 
6 1 4 
615 
6 1 6 

617 

618 

619 

620 
62] 

622 HLT 

623 1 


LNX ROUTINE EXCERPT FROM 
THE ROCKET PACKAGE 


REG C9050 


9050 


BMI 
SR T 
ALO 
STL 
SLO 
ALO 
SLT 


STD LINK 
LDD 0P1 
STD C0005 
N2U 

HLT 
0002 
EXP52 
C0001 
8001 
5 1 EXP 
0002 
STU C0002 
RAU C0001 
FSB 51LNK 
FMP LN10 
FAD LN3 
STU C0001 
RAU C0002 
FAD < 

STU C0003 
RAU C0002 
FSB K 
FDV C0003 
FAD 8003 
ALO 8001 
STU C0003 
RSU 8002 
FMP 8001 
STU C0002 


HLT 


EXPON IN 
LO PUT IN 
FLT NOT ATN 
CLEAR LO 
NUM IN UPR 
ADD 51 EXP 

SUB 51 FRM 
EXPONENT 
MUL LN 10 
ADD LN 3 


X MINUS 3 
OVER 

X PLUS 3 

EQUALS Y 
FORM 2 Y 

Y IN LOWER 
2Y I N 9003 
MINUS Y IN 

Y SQUARED 


FMP 

K 1 



FAD 

K 2 



FMP 

C0002 



FAD 

K 3 


FORM 

FMP 

C0002 


NUMERATOR 

FAD 

K4 



STU 

C0004 



RAU 

C0002 



FMP 

K 5 



FAD 

K6 



FMP 

C0002 



fad 

K 7 


FORM 

FMP 

C0002 


DENOMNATOR 

FAD 

K 4 



FDV 

C0004 


QUOTIENT 

FMP 

C0003 


MULT BY 2Y 

FAD 

C0001 


FMP 

C0005 

LINK 


HLT 

1111 

1111 



62 4 
625 

1 

EXP52 

00 

LN X ROUTINE C( 
0000 0052 

626 

5 1EXP 

51 

0000 

0000 

62 7 

5 1 LNK 

51 

0000 

0052 

628 

K 

30 

0000 

0051 

629 

LN 1 0 

23 

0258 

5151 

630 

LN3 

10 

9861 

2351 

631 

0P1 

10 

0000 

0051 

632 

K 1 

81 

5850 

8249 

633 

K 2 

73 

4265 

7350 

634 

K3 

16 

1538 

4651 

635 

K 4 

99 

9999 

9950 

636 

K 5 

17 

0496 

1749 

637 

K 6 

39 

5804 

2050 

638 

K 7 

12 

8205 

1351 


DENOM 

denom 

DENOM 

NUM 

NUM 

NUM 


4 

3 
2 

4 
3 
2 


1700 24 1355 0408 
0408 69 0611 1064 
1064 24 9054 0470 
0470 44 0223 0224 
0223 46 0224 0227 
0227 30 0002 0383 
0383 15 0186 0441 
0441 20 9050 0198 
0198 16 8001 0405 
0405 15 0458 1163 
1163 35 000? 0469 


0469 

21 

9051 

0?77 

0277 

60 

' 9050 

' 0185 

0185 

33 

0138 

0465 

0465 

39 

0218 

0268 

0268 

32 

0521 

0297 

0297 

21 

9050 

0455 

0455 

60 

9051 

1213 

1213 

32 

0266 

0243 

0243 

21 

9052 

0551 

0551 

60 

9051 

0459 

0459 

33 

0266 

0293 

0293 

34 

9052 

0196 

0196 

32 

8003 

0425 

0425 

15 

8001 

0433 

0433 

21 

9052 

0491 

0491 

61 

800? 

0199 

0199 

39 

8001 

0402 

0402 

21 

9051 

0509 

0509 

39 

0212 

0262 

0262 

32 

0515 

0541 

0541 

39 

9051 

0194 

0194 

32 

0347 

0273 

0273 

39 

9051 

0226 

0226 

32 

0579 

0505 

0505 

21 

9053 

1263 

1263 

60 

9051 

0571 

0571 

39 

0274 

0324 

0324 

32 

0327 

0653 

0653 

39 

9051 

0256 

0256 

32 

0559 

0235 

0235 

39 

9051 

0188 

0188 

32 

0579 

0555 

0555 

34 

9053 

0508 

0508 

39 

905? 

0961 

0961 

32 

9050 

0591 

0591 

39 

9054 

1855 

0224 

01 

1111 

1111 


0186 00 0000 0052 
0458 51 0000 0000 

0138 51 0000 0052 

0266 30 0000 0051 

0218 23 0258 5151 

0521 10 9861 2351 

0611 10 0000 0051 
0212 81 5850 8249 

0515 73 4265 7350 

0347 16 1538 4651 

0579 99 9999 9950 

0274 17 0496 1749 

0327 39 5804 2050 

0559 12 8205 1351 



102 


639 


PAT 




1111 

0450 

1 

000 

ooo 

0451 

2 

000 

001 

0452 

3 

000 

ooo 

0453 

4* 

ooo mill 

0454 

5 

ooo 

ooo 

0455 

6 

000 

mi 

0456 

7 

ooo 

001 

0457 

8 

ooo 

ooo 

0458 

9 

ooo 

ooo 

0459 

1 


mi 

0460 

11 

ooo 

ooo 

0461 

12 

ooo 

nn 

0462 

13 

coo 

ooo 

0463 

14 

ooo 

ooo 

0464 

15 

ooo 

ooo 

0465 

16 

ooo 

n n 

0466 

17 

ooo 

001 

0467 

18 

ooo 

nn 

0468 

19 

ooo 

ooo 

0469 

2 


ooo 

0470 

21 

ooo 

ooo 

0471 

22* 

0001111111 

0472 

23 

ooo 

nn 

0473 

24 

ooo 

111 

0474 

25 

ooo 

001 

0475 

26 

ooo 

inn 

0476 

27 

ooo 

in 

0477 

28* 

1 11 111 111 

0478 

29 

ooo 

ooo 

0479 

30* 

1111111111 

0480 

31 

ooo 

on 

0481 

32 

ooo 

uni 

0482 

33 

ooo 

001 

0483 

34* 

0001111111 

0484 

35 

ooo 

inn 

0485 

36* 

ooo 

nnn 

0466 

37 

ooo 

nn 

0487 

38* 

■ 000 

mm 

0488 

39 

ooo 

nil 

0489 

40* 11111111 

0490 

41 

ooo 

ooo 

0491 

42 

ooo 

mi 

0492 

43 

ooo 

ini 

0493 

44* 000 

nnn 

0494 

45* 000 

mm 

0495 

46* 000 

mm 

0496 

47 

ooo 

m 

0497 

48* 000 

mm 

0498 

49* 000 

mm 

0499 


060 111000000 930 

0301 11000000 951 

0502 1111000000 952 

0503 953 

0504 1111000000 954 

0505 1100000C 955 

0506 1111000000 956 

0507 1111000000 957 

0506 111000000 958 

0509 11000000 959 

051 1110000001 960 

0511 961 

0512 1110000001 962 

0513 963 

0514 964 

0515 110000001 965 

0516 1110000001 966 

0517 1110000001 967 

0518 1110000001 968 

0519 1110000001 969 

052 1110000001 970 

0521 10000001 971 

0522 1110000001 972 

0523 1110000001 973 

0524 1110000001 974 

0525 1110000001 975 

0526 1110000001 976 

0527 1110000001 977 

0528 1110000001 978 

0529 10000001 979 

053 1110000001 980 

0531 1110000001 981 

0532 1110000001 982 

0533 1110000001 983 

0534 1110000001 984 

0535 1110000001 985 

0536 1110000001 986 

0537 1110000001 987 

0538 1110000001 988 

0539 1110000001 989 

054 1110000001 990 

0541 10000001 991 

0542 1110000001 992 

0543 1110000001 993 

0544 1110000001 994 

0545 1110000001 995 

0546 1110000001 996 

0547 1110000001 997 

0548 1110000001 998 

0549 1110000001 999 


1000 

1111111111 

1450 

1001 

niinnii 

1451 

1002 

ininnii 

1452 

1003 

nnn nn 

1453 

1004 

oonii nn 

1454 

1005 

inn: nil 

1455 

1006 

inn: nil 

1456 

1007 

lininii 

1457 

1008 

mu: nn 

1458 

1009 

nonmn 

1459 

1010 

noimm 

1460 

1011 

noiiuni 

1461 

1012 

nonmn 

1462 

1013 

oooooonn 

1463 

1014 

oooninii 

1464 

1015 

nonuni 

1465 

1016 

nonmn 

1466 

1017 

non mu 

1467 

1018 

lioimin 

1468 

1019 

nonmn 

1469 

1020 

nonmn 

1470 

1021 

noimm 

1471 

1022 

nonmn 

1472 

1023 

1101111111 

1473 

1024 

nommi 

1474 

1025 

looinun 

1475 

1026 

loomnii 

1476 

1027 

loonnni 

1477 

1028 

loon mil 

1478 

1029 

loonnni 

1479 

1030 

1001111111 

1480 

1031 

looinun 

1481 

1032 

loomnii 

1482 

1033 

1001111111 

1483 

1034 

looiunii 

1484 

1035 

10011 inn 

1485 

1036 

1001 : mil 

1486 

1037 

loot: mu 

1487 

1038 

1001 : nm 

1488 

1039 

iooi: inn 

1489 

1040 

looi mu 

1490 

1041 

1001 11111 

1491 

1042 

iooi inn 

1492 

1043 

iooo nm 

1493 

1044 

1001:11111 

1494 

1045 

1001 mm 

1495 

1046 

10013.11111 

1496 

1047 

1001 110111 

1497 

1048 

0001 >10111 

1498 

1049 

0001310111 

1499 


1500 

nooouooo 

1950 

1501 

1100111000 

1951 

1502 

noomooo 

1952 

1503 

1100111000 

1953 

1504 

noomooo 

1954 

1505 

noomooo 

1955 

1506 

noomooo 

1956 

1507 

noomooo 

1957 

1508 

noomooo 

1958 

1509 

noomooo 

1959 

1510 

noimooo 

1960 

1511 

nonnooo 

1961 

1512 

noimooo 

1962 

1513 

nonnooo 

1963 

1514 

noimooo 

1964 

1515 

nonnooo 

1965 

1516 

nonnooo 

1966 

1517 

noimooo 

1967 

1518 

110111 1000 

1968 

1519 

noimooo 

1969 

1520 

noimooo 

1970 

1521 

nonnooo 

1971 

1522 

nonnooo 

1972 

1523 

nonnooo 

1973 

1524 

nonnooo 

1974 

1525 

1 101111000 

1975 

1526 

nonnooo 

1976 

1527 

noimooo 

1977 

1528 

noimooo 

1978 

1529 

nonnooo 

1979 

1530 

nonnooo 

1980 

1531 

noimooo 

1901 

1532 

1101110000 

1982 

1533 

1101110000 

1983 

1534 

1101110000 

1984 

1535 

1101110000 

1985 

1536 

nomoooo 

1986 

1537 

nomoooo 

1907 

1538 

nomoooo 

1988 

1539 

nomoooo 

1989 

1540 

nomoooo 

1990 

1541 

nomoooo 

1991 

1542 

nomoooo 

1992 

1543 

nomoooo 

1993 

1544 

nomoooo 

1994 

1545 

nomoooo 

1995 

1546 

nomoooo 

1996 

1547 

nomoooo 

1997 

1548 

nomoooo 

1998 

1549 

1001110000 

1999 
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APPENDIX H 

VECTOR AND PROPELLANT PROGRAM 


1 1 PROGRAM FOR ASSEMBLING 

2 1 COMBUSTION PRODUCT PACKED 

3 1 VECTORS AND FUEL AND OXIDANT 

4 1 GRAM ATOM RATIOS ENTHALPIES 

5 1 AND OXIDATION NUMBERS 

6 1 


7 


REG 

A0001 

0011 

ATOM TABLE 





8 


REG 

F0100 

0199 

FUELS 





9 


REG 

X0200 

0299 

OXIDANTS 





10 


REG 

L0300 

0309 

PCTS FUEL 





H 


REG 

DO 3 1 0 

0319 

PCTS OX ID 





12 


REG 

HO 320 

0329 

FUEL ENTH 





13 


REG 

E0330 

0339 

OX I D ENTH 





14 


REG 

WO 340 

0349 

ATOMIC WTS 





15 


REG 

SO 35 0 

0359 

OXrD NUM8R 





16 


REG 

NO 360 

0379 

MOLES 





17 


REG 

GO 380 

0399 

GRAM ATOMS 





18 

1 




PER GRAM 





19 


REG 

M0400 

0510 

ATOMIC WTS 





20 


REG 

V0600 

0710 

SYMBOL AND 





21 

1 




OX ID TABLE 





22 


REG 

U0800 

0809 






23 


REG 

R 1951 

1960 

READ BAND 





24 


REG 

Pi 977 

1986 

PUNCH BAND 





25 


REG 

C9 000 

9000 






26 


BLR 

0000 

0000 






27 


BLR 

0090 

0099 

ZEROS 





28 


BLR 

0360 

0379 

SPARE 





29 


BLR 

0537 

0549 

OXIDANT 





30 


BLR 

0587 

0599 

FUEL 





31 


BLR 

0900 

0909 






32 


BLR 

1500 

1999 






33 


SYN 

PUNCH 

1930 






34 


$YN 

RMPCH 

1940 






35 


EOU 

TEMPO 

C0001 

TEMPORARY 





36 


EQU 

TEMPI 

C0002 

TEMPORARY 





37 


EOU 

TEMP2 

C0003 

TEMPORARY 





38 


EOU 

ROOOX 

R0001 






39 

1 









40 


EOU 

U01XX 

U0101 






41 


EOU 

vooxx 

V0001 






42 


EOU 

MOOXX 

M0001 






43 


EOU 

XXXXX 

0000 






44 

1 









45 

1 


TABLE 

OF ATOMIC 

WEIGHTS 





46 

M0001 

39 

9440 

0052 

ARGON 

0400 

39 

9440 

0052 

47 

M0002 

22 

7000 

0053 

ACTINIUM 

0401 

22 

7000 

0053 

40 

M0003 

10 

7880 

0053 

SILVER 

0402 

10 

7880 

0053 

49 

M 0004 

26 

9800 

0052 

aluminum 

0403 

26 

9800 

0052 

50 

M0005 

24 

3000 

0053 

AMERICIUM 

0404 

24 

3000 

0053 

51 

M0006 

74 

9100 

0052 

ARSENIC 

0405 

74 

9100 

0052 

52 

M0007 

21 

1000 

0053 

ASTATINE 

0406 

21 

1000 

0053 

53 

M0008 

19 

7000 

0053 

GOLD 

0407 

19 

7000 

0053 

54 

M0009 

10 

8200 

0052 

BORON 

0408 

10 

0200 

0052 

56 

MOO 1 1 

90 

1300 

005 1 

beryllium 

0410 

90 

1300 

0051 

57 

MOO 1 2 

20 

9000 

0053 

BISMUTH 

0411 

20 

9000 

0053 

58 

MOO 1 3 

24 

5000 

0053 

BERKELIUM 

0412 

24 

5000 

0053 

55 

M0010 

13 

7360 

0053 

BARIUM 

0409 

13 

7360 

0053 

59 

M0014 

79 

9 160 

0052 

BROMINE 

0413 

79 

9160 

0052 

60 

M0C15 

12 

0110 

0052 

CARBON 

0414 

12 

0110 

0052 

61 

M0016 

40 

0800 

0052 

CALCIUM 

0415 

40 

0800 

0052 

62 

M0017 

11 

2410 

0053 

CADMIUM 

0416 

1 1 

2410 

0053 

63 

MOO 1 8 

14 

0130 

0053 

CERIUM 

0417 

14 

0130 

0053 

6 4 

MOO 1 9 

24 

8000 

0053 

CAL IFORNUM 

0418 

24 

8000 

0053 

65 

M0020 

35 

4570 

0052 

CHLORINE 

0419 

35 

4570 

0052 

6 6 

M0021 

24 

5000 

0053 

CURIUM 

0420 

24 

5*00 

0053 

67 

M0022 

58 

9400 

0052 

COBALT 

0421 

58 

9400 

0052 

68 

M0023 

52 

0100 

0052 

CHROMIUM 

0422 

52 

0100 

0052 

69 

M0C24 

13 

2910 

0053 

CESIUM 

0423 

13 

2910 

0053 

7 C 

*0025 

63 

5400 

0052 

COPPER 

0424 

63 

5400 

0052 

?1 

M0026 

16 

2510 

0053 

DYSPROSIUM 

0425 

16 

2510 

0053 

72 

M0027 

25 

5 000 

0053 

EINSTEINUM 

0426 

25 

5000 

0053 

73 

M0028 

16 

7270 

0053 

ERBIUM 

0427 

16 

7270 

0053 

74 

M0029 

15 

2000 

0053 

EUROPIUM 

0428 

15 

2*00 

0053 

75 

M0030 

19 

0000 

0052 

FLUORINE 

0429 

19 

0000 

0052 

76 

M0031 

55 

8500 

0052 

IRON 

0430 

55 

8500 

0052 

77 

M0032 

25 

2000 

0053 

FERMIUM 

0431 

25 

2000 

0053 

78 

M0033 

22 

3000 

0053 

FRANCIUM 

0432 

22 

3000 

0053 

79 

M0034 

69 

7200 

0052 

GALLIUM 

0433 

69 

7200 

0052 

80 

M0035 

15 

7260 

0053 

GADOLINIUM 

0434 

15 

7260 

0053 

01 

M0036 

72 

6000 

0052 

GERMANIUM 

0435 

72 

6000 

0052 

82 

M0037 

10 

0800 

0051 

hydrogen 

0436 

10 

0800 

0051 
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83 

M0038 

40 

0300 

0051 

HELIUM 

84 

M0039 

17 

8580 

0053 

HAFNIUM 

85 

M0040 

20 

0610 

0053 

MERCURY 

86 

M0041 

16 

4940 

0053 

HOLMIUM 

87 

M0042 

12 

6910 

0053 

IODINE 

88 

M0043 

11 

4820 

0053 

INDIUM 

89 

M0044 

19 

2200 

0053 

IRIDIUM 

90 

M0045 

39 

1000 

0052 

POTASSIUM 

91 

MO 046 

83 

8 000 

0052 

KRYPTON 

92 

M0047 

13 

8920 

0053 

LANTHANUM 

93 

M0048 

69 

4000 

0051 

LITHIUM 

94 

MOOS 1 

17 

4990 

0053 

LUTETIUM 

95 

M0052 

24 

3200 

0052 

MAGNESIUM 

96 

M0053 

54 

9400 

0052 

MANGANESE 

97 

M0054 

95 

9500 

0052 

molybdenum 

90 

M0055 

25 

6000 

0053 

MENDELEVUM 

99 

M0056 

14 

0080 

0052 

NITROGEN 

100 

M0057 

22 

9910 

0052 

SODIUM 

101 

MOOS 8 

92 

9100 

0052 

NIOBIUM 

102 

MO 0 59 

14 

4270 

0053 

neodymium 

103 

M0060 

20 

1830 

0052 

NEON 

104 

M0061 

58 

7100 

0052 

NICKEL 

105 

M0062 

23 

7000 

0053 

NEPTUNIUM 

106 

M0063 

16 

0000 

0052 

OXYGEN 

107 

M0064 

19 

0200 

0053 

OSMIUM 

108 

M0065 

30 

9750 

0052 

PHOSPHORUS 

109 

M0066 

23 

1000 

0053 

PROTACT INM 

110 

M0067 

20 

7210 

0053 

LEAD 

111 

M0068 

10 

6700 

0053 

PALLADIUM 

112 

M0069 

14 

5000 

0053 

PROMETHIUM 

113 

M0070 

21 

0000 

0053 

POLONIUM 

114 

M0071 

14 

0920 

0053 

PRASEODYMM 

115 

M0072 

19 

5090 

0053 

PLATINUM 

116 

M0073 

24 

2000 

0053 

PLUTONIUM 

117 

M0074 

22 

6050 

0053 

RADIUM 

118 

M0075 

85 

4800 

0052 

RUBIDIUM 

119 

M0076 

18 

6220 

0053 

RHENIUM 

120 

M0077 

10 

2910 

0053 

RHODIUM 

121 

M0078 

22 

2 000 

0053 

RADON 

122 

M0079 

10 

1100 

0053 

RUTHENIUM 

123 

M0080 

32 

0660 

0052 

SULFUR 

124 

MOOS 1 

12 

1760 

0053 

ANTIMONY 

125 

MOOS 2 

44 

9600 

0052 

SCANDIUM 

126 

M0083 

78 

9600 

0052 

SELENIUM 

127 

M0084 

28 

0900 

0052 

SILICON 

128 

M0085 

15 

0350 

0053 

SAMARIUM 

129 

M0086 

11 

8700 

0053 

TIN 

130 

M0087 

87 

6300 

0052 

STRONTIUM 

131 

M0088 

18 

0950 

0053 

TANTALUM 

132 

M0089 

15 

8930 

0053 

TERBIUM 

133 

M0090 

99 

0000 

0052 

TECHNETIUM 

134 

M0091 

12 

7610 

0053 

TELLURIUM 

135 

M0092 

23 

2050 

0053 

THORIUM 

1 36 

M0093 

47 

9000 

0052 

TI TANIUM 

137 

M0094 

20 

4390 

0053 

THALLIUM 

138 

M0095 

16 

8940 

0053 

THULIUM 

139 

M0096 

23 

8070 

0053 

URANIUM 

140 

M0097 

50 

9500 

0052 

VANADIUM 

141 

M0098 

18 

3860 

0053 

TUNGSTEN 

142 

MO 101 

13 

1300 

0053 

XENON 

143 

M0102 

88 

9200 

0052 

YTTRIUM 

144 

M0103 

17 

3040 

0053 

YTTERBIUM 

145 

MO 1 04 

65 

3800 

0052 

ZINC 

146 

M0105 

91 

2200 

0052 

ZIRCONIUM 

147 

1 





148 

1 



TABLE OF 

VALENCES 

149 

V0001 

61 

0000 

0000 

ARGON 

150 

V0002 

61 

6300 

0000 

ACTINIUM 

151 

V0003 

61 

6700 

0000 

SILVER 

152 

V0004 

61 

7300 

0003 

ALUMINUM 

153 

V0005 

61 

7400 

0000 

AMERICIUM 

154 

V0006 

61 

8200 

0000 

ARSENIC 

155 

V0007 

61 

8300 

0000 

ASTATINE 

156 

V0008 

61 

8400 

0000 

GOLD 

157 

V0009 

62 

0000 

0003 

BORON 

158 

vooio 

62 

6100 

0000 

BARIUM 

159 

V001 1 

62 

6500 

0002 

BERYLLIUM 

160 

V0012 

62 

6900 

0000 

BISMUTH 

161 

V0013 

62 

7200 

0000 

BERKELlUM 

162 

V0014 

62 

7900 

0001 

BROMINE 

163 

V0015 

63 

0000 

0004 

CARBON 

164 

V0016 

63 

6100 

0002 

CALCIUM 

165 

V0017 

63 

6400 

0000 

CADMIUM 

166 

V0018 

63 

6500 

0000 

CERIUM 


0*37 

40 

0300 

0051 

0*38 

17 

8580 

0053 

0*39 

20 

0610 

0053 

0*40 

16 

4940 

0053 

0*41 

12 

6910 

0053 

0*42 

11 

4820 

005 3 

0*43 

19 

2200 

0053 

0*44 

39 

1000 

0052 

0*45 

83 

8000 

0052 

0*46 

13 

8920 

0053 

0447 

69 

4000 

0051 

0*50 

17 

4990 

0053 

0451 

2* 

3200 

0052 

0452 

54 

9400 

0052 

0*53 

95 

9500 

0052 

0454 

25 

6000 

0053 

0455 

14 

0080 

0052 

0*56 

22 

9910 

0052 

0457 

92 

9100 

0032 

0458 

1* 

4270 

0053 

0459 

20 

1830 

0052 

0460 

58 

7100 

0052 

0461 

23 

7000 

0053 

0462 

16 

0000 

0052 

0463 

19 

0200 

0053 

0464 

30 

9750 

0052 

0465 

23 

1000 

0053 

0*66 

20 

7210 

0053 

0467 

10 

6700 

0053 

0*68 

14 

5000 

0033 

0**69 

21 

0000 

0033 

0**70 

14 

0920 

0053 

0**71 

19 

5090 

0053 

0**72 

24 

2000 

0053 

0**73 

22 

6050 

0053 

0**74 

85 

4800 

0052 

0-75 

18 

6220 

0053 

0-76 

10 

2910 

0053 

0-77 

22 

2000 

0033 

0-78 

10 

1100 

0053 

0*79 

32 

0660 

0052 

0480 

12 

1760 

0053 

0481 

44 

9600 

0052 

0*82 

78 

9600 

0052 

0-83 

28 

0900 

0052 

0-84 

15 

0350 

0053 

0-85 

11 

8700 

0053 

0-86 

87 

6300 

0052 

0-67 

18 

0950 

0053 

0 *88 

15 

8930 

0053 

0 *89 

99 

0000 

0052 

0*90 

12 

7610 

0053 

0 *91 

23 

2050 

0053 

0*92 

47 

9000 

0052 

0 493 

20 

4390 

0053 

0 494 

16 

8940 

0053 

0*95 

23 

8070 

0053 

0*96 

50 

9500 

0052 

0 497 

16 

3860 

0053 

ODOO 

13 

1300 

0053 

0‘>01 

86 

9200 

0052 

0b02 

17 

3040 

0053 

0b03 

65 

3*00 

0052 

0 504 

91 

2200 

0052 


ObOO 

61 

0000 

0000 

0i>01 

61 

6300 

0000 

0 b02 

61 

6700 

0000 

0b03 

61 

7300 

0003 

0b04 

61 

7400 

0000 

0 b05 

61 

8200 

0000 

0 b06 

61 

8300 

0000 

0b07 

61 

0400 

0000 

Oboe 

62 

0000 

0003 

0 b09 

62 

6100 

0000 

0 510 

62 

6500 

0002 

0611 

62 

6900 

0000 

0512 

62 

7200 

0000 

0513 

-62 

7900 

0001 

0514 

63 

0000 

0004 

0515 

63 

6100 

0002 

0616 

63 

6400 

0000 

0617 

63 

6500 

0000 
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167 

V0019 

63 

6600 

0000 

CALIFORNUM 

0618 

63 

6600 

OOOO 

168 

V0020 - 

63 

7300 

0001 

CHLORINE 

0619 

-63 

7300 

0001 

169 

V0021 

63 

7400 

oooo 

CURIUM 

0620 

63 

7400 

oooo 

170 

V0022 

63 

7600 

0000 

cobalt 

0621 

63 

7600 

oooo 

171 

V0023 

63 

7900 

0000 

CHROMIUM 

0622 

63 

7900 

oooo 

172 

V0024 

63 

8200 

0000 

CESIUM 

0623 

63 

8200 

oooo 

173 

V0025 

63 

8400 

0000 

COPPER 

0624 

63 

8400 

oooo 

174 

V0026 

64 

8800 

0000 

DYSPROSIUM 

0625 

64 

8800 

oooo 

175 

V0C27 

65 

0000 

0000 

EINSTEINUM 

0626 

65 

oooo 

oooo 

176 

V0028 

65 

7900 

0000 

ERBIUM 

0627 

65 

7900 

oooo 

177 

V0029 

65 

8400 

0000 

EUROPIUM 

0628 

65 

8400 

oooo 

176 

V0030 - 

66 

0000 

0001 

fluorine 

0629 

-66 

OOOO 

0001 

179 

V0031 

66 

6500 

oooo 

IRON 

0630 

66 

6500 

oooo 

180 

V0032 

66 

7400 

0000 

FERMIUM 

0631 

66 

7400 

oooo 

181 

V0033 

66 

7900 

oooo 

FRANCIUM 

0632 

66 

7900 

oooo 

182 

V0034 

67 

6100 

oooo 

GALLIUM 

0633 

67 

6100 

oooo 

183 

V0035 

67 

6400 

oooo 

gadolinium 

0634 

67 

6400 

oooo 

1 84 

V0036 

67 

6500 

oooo 

GERMANIUM 

0635 

67 

6*00 

oooo 

185 

V0037 

68 

0000 

0001 

hydrogen 

0636 

68 

OOOO 

0001 

186 

V0038 

68 

6500 

oooo 

HELIUM 

0637 

68 

6500 

oooo 

187 

V0039 

68 

6600 

oooo 

HAFNIUM 

0638 

68 

6600 

oooo 

188 

V0040 

68 

6700 

oooo 

MERCURY 

0639 

68 

6700 

oooo 

189 

V0041 

68 

7600 

oooo 

HOLMIUM 

0640 

68 

7600 

oooo 

190 

V0042 - 

69 

0000 

0001 

IODINE 

0641 

-69 

OOOO 

0001 

191 

V0043 

69 

7500 

oooo 

INDIUM 

0642 

69 

7500 

oooo 

192 

V0044 

69 

7900 

oooo 

IRIDIUM 

0643 

69 

7900 

oooo 

1 93 

V0045 

72 

0000 

0001 

POTASSIUM 

0644 

72 

oooo 

0001 

194 

V0046 

72 

7900 

oooo 

KRYPTON 

0645 

72 

7900 

oooo 

195 

VO 047 

73 

6100 

oooo 

LANTHANUM 

0646 

73 

6100 

oooo 

196 

V0048 

73 

6900 

0001 

LITHIUM 

0647 

73 

6900 

0001 

197 

V0051 

73 

8400 

oooo 

LUTETIUM 

0650 

73 

8400 

oooo 

198 

V0052 

74 

6700 

0002 

MAGNESIUM 

0651 

74 

6700 

0002 

199 

V0053 

74 

7500 

oooo 

MANGANESE 

0652 

74 

7500 

oooo 

200 

VO 0 54 

74 

7600 

oooo 

MOLYBDENUM 

0653 

74 

7600 

oooo 

201 

V0055 

74 

8500 

oooo 

MENDELEVUM 

0654 

74 

8500 

oooo 

202 

V0056 

75 

0000 

oooo 

NITROGEN 

0655 

75 

OOOO 

oooo 

203 

V0057 

75 

6100 

0001 

SODIUM 

0656 

75 

6100 

0001 

204 

V0058 

75 

6200 

oooo 

NIOBIUM 

0657 

75 

6200 

oooo 

205 

V0059 

75 

6400 

oooo 

NEODYMIUM 

0658 

75 

6400 

oooo 

206 

V0060 

75 

6500 

oooo 

NEON 

0659 

75 

6500 

oooo 

207 

V0061 

75 

6900 

oooo 

NICKEL 

0660 

75 

6900 

oooo 

208 

V0062 

75 

7700 

oooo 

NEPTUNIUM 

0661 

75 

7700 

oooo 

209 

VO 06 3 - 

76 

0000 

0002 

OXYGEN 

0662 

-76 

OOOO 

0002 

210 

V0064 

76 

8200 

oooo 

OSMIUM 

0663 

76 

8200 

oooo 

211 

VO 06 5 

77 

0000 

oooo 

PHOSPHORUS 

0664 

77 

OOOO 

oooo 

212 

VO 0 6 6 

77 

6100 

oooo 

PROTACTIUM 

0665 

77 

6100 

oooo 

213 

VO 06 7 

77 

6200 

oooo 

LEAD 

0666 

77 

6200 

oooo 

214 

V0068 

77 

6400 

oooo 

PALLADIUM 

0667 

77 

6400 

oooo 

215 

V0069 

77 

7400 

oooo 

PROMETHIUM 

0668 

77 

7*00 

oooo 

216 

V0070 

77 

7600 

oooo 

POLONIUM 

0669 

77 

7600 

oooo 

217 

V0071 

77 

7900 

oooo 

PR ASEODYMM 

0670 

77 

7900 

oooo 

218 

V0072 

77 

8300 

oooo 

PLATINUM 

0671 

77 

8300 

oooo 

219 

V0073 

77 

8400 

oooo 

PLUTONIUM 

0672 

77 

8400 

oooo 

220 

V0074 

79 

6100 

oooo 

RADIUM 

0673 

79 

6100 

oooo 

221 

V0075 

79 

6200 

oooo 

RUBIDIUM 

0674 

79 

6200 

oooo 

222 

V0076 

79 

6500 

oooo 

RHENIUM 

0675 

79 

6500 

oooo 

223 

V0077 

79 

6800 

oooo 

RHODIUM 

0676 

79 

6800 

oooo 

22 4 

V0078 

79 

7500 

oooo 

RADON 

0677 

79 

7500 

oooo 

225 

V0079 

79 

8400 

oooo 

RUTHENIUM 

0678 

79 

8400 

oooo 

22 6 

V0080 

82 

0000 

0004 

SULFUR 

0679 

82 

OOOO 

0004 

227 

V008 1 

82 

6200 

oooo 

ANTIMONY 

0680 

82 

6200 

oooo 

228 

V0082 

82 

6300 

oooo 

SCANDIUM 

0681 

82 

6300 

oooo 

2 29 

V0083 

82 

6500 

oooo 

SELENIUM 

0682 

82 

6500 

oooo 

230 

V0084 

82 

6900 

0004 

SILICON 

0683 

82 

6900 

0004 

231 

V0085 

82 

7400 

oooo 

SAMARIUM 

0684 

82 

7400 

oooo 

232 

V0086 

82 

7500 

oooo 

TIN 

0685 

82 

7500 

oooo 

233 

V0087 

82 

7900 

oooo 

STRONTIUM 

0686 

82 

7900 

oooo 

2 34 

V0088 

83 

6100 

oooo 

TANTALUM 

0687 

83 

6100 

oooo 

235 

V0069 

83 

6200 

oooo 

TERBIUM 

0668 

83 

6200 

oooo 

236 

V0090 

83 

6300 

oooo 

TECHNETIUM 

0689 

83 

6300 

oooo 

237 

V0091 

83 

6500 

oooo 

TELLURIUM 

0690 

83 

6500 

oooo 

238 

V0092 

83 

6800 

oooo 

THORIUM 

0691 

83 

6800 

oooo 

239 

V0093 

83 

6900 

oooo 

TITANIUM 

0692 

83 

6900 

oooo 

240 

V0094 

83 

7300 

oooo 

THALLIUM 

0693 

83 

7300 

oooo 

241 

V0095 

83 

7400 

oooo 

THULIUM 

0694 

83 

7400 

oooo 

242 

V0096 

84 

0000 

oooo 

URANIUM 

0695 

84 

OOOO 

oooo 

243 

V0097 

85 

0000 

oooo 

VANADIUM 

0696 

85 

OOOO 

oooo 

244 

V0098 

86 

0000 

oooo 

TUNGSTEN 

0697 

86 

OOOO 

oooo 

245 

V0101 

87 

6500 

oooo 

XENON 

0700 

87 

6500 

oooo 

2 46 

VO 102 

88 

0000 

oooo 

YTTRIUM 

0701 

86 

OOOO 

oooo 

247 

V0103 

88 

6100 

oooo 

YTTERBIUM 

0702 

68 

6100 

oooo 

248 

V0104 

89 

7500 

oooo 

ZINC 

0703 

09 

7500 

oooo 

249 

V0105 

89 

7900 

oooo 

ZIRCONIUM 

0704 

89 

7900 

oooo 


250 1 



106 


251 1 

CLEAR ROUTINE 






25? 1 








253 CLEAR 

RAA 

0010 


0050 

80 

0010 

0056 

254 

RAM 

8002 CLR 1 


0056 

67 

8002 

0015 

255 CLR 1 

STU 

9049 A 


0015 

21 

9?49 

0023 

256 

N2 A 

CLR 2 


0023 

40 

0026 

0027 

257 

SX A 

0001 CLR 1 


0026 

51 

0001 

0015 

258 CLR 2 

SET 

9049 


0027 

27 

9049 

0032 

259 

STB 

A0001 


0032 

29 

0001 

0054 

260 

RAA 

0300 CLR 3 


0054 

80 

0300 

0060 

261 CLR 3 

SET 

9050 


0060 

27 

9050 

0065 

262 

SBB 

0090 A 


0065 

26 

2090 

0043 

263 

NZ A 

SET01 


0043 

40 

0046 

0047 

264 

SXA 

0010 CLR 3 


0046 

51 

0010 

0060 

265 SET01 

RSU 

UNITY 

SET ATOM 

0047 

61 

0550 

0055 

266 

STU 

ATMCT 

COUNTER 

0055 

21 

0560 

0013 

267 

STD 

RELAY READ 

SET SWITCE 

0013 

24 

0016 

0019 

268 1 



TO ATOMS 





269 1 








270 1 

READ ROUTINE 






271 READ 

RCD 

R0001 

READ CARD 

0019 

70 

1951 

0051 

272 

LOD 

R0001 

TRANSFER 

0051 

69 

1951 

0554 

273 

STD 

P0001 

IMPUT FROM 

0554 

24 

1977 

0030 

274 

ldo 

R0002 

READ BAND 

0030 

69 

1952 

0555 

275 

STD 

P0002 

TO PUNCH 

0555 

24 

1978 

0031 

276 

LOD 

R0003 

BAND 

0031 

69 

1953 

0556 

277 

STD 

P0003 


0556 

24 

1979 

0082 

278 

LDD 

R0004 


0082 

69 

1954 

0057 

279 

STD 

P0004 


0057 

24 

I960 

0033 

280 

LDD 

R0005 


0033 

69 

1955 

0058 

281 

STD 

P0005 


0058 

24 

1981 

0034 

282 

LDD 

R0006 


0034 

69 

1956 

0059 

283 

STD 

P0006 


0059 

24 

1982 

0035 

284 

RAU 

R0010 


0035 

60 

1960 

0515 

285 

STL 

P0007 

CLER P000‘ 

0515 

20 

1983 

0036 

286 

STD 

P0009 

CLER POOO" 

0036 

24 

1°85 

0036 

287 

SRT 

0002 


0038 

30 

0002 

0045 

288 

STU 

P0008 


0045 

21 

1984 

0037 

289 

NZU 

PV007 

SET P0010 

0037 

44 

0041 

0042 

290 

ALO 

823RD 

TO PUNCH 

0041 

15 

0044 

0049 

291 

STL 

P0010 PNCH 

TYPE1 CARD 

0049 

20 

1986 

0039 

292 PV007 

RAU 

R0004 

REARRANGE 

0042 

60 

1954 

0559 

293 

SRT 

0004 

VECTOR IN 

0559 

30 

0004 

0069 

294 

SLO 

8002 

WORDS 2 3 

0069 

16 

8002 

0077 

295 

STD 

R0004 

4 5 AND 6 

0077 

24 

1954 

0557 

296 

SLT 

0004 


0557 

35 

0004 

0017 

297 

STU 

SYMBL 

SAVE SYMB1. 

0017 

21 

0022 

0025 

298 

RAL 

R0004 


0025 

65 

1954 

0759 

299 

SLT 

0002 


0759 

35 

0002 

0565 

300 

SLO 

8002 


0565 

16 

8002 

0073 

301 

STD 

TEMPO 


0073 

24 

9000 

0029 

302 

ALO 

R0003 


0029 

15 

1953 

0757 

303 

SLT 

0008 


0757 

35 

0008 

0075 

304 

STU 

R0003 


0075 

21 

1953 

0756 

305 

STL 

TEMPI 


0756 

20 

9001 

0014 

306 

RAU 

RQ006 


0014 

60 

1956 

0061 

307 

SRT 

0004 * 


0061 

30 

0004 

0021 

308 

STL 

R0006 


0021 

20 

1956 

0859 

309 

RAL 

8003 


0859 

65 

8003 

0067 

310 

SLT 

0004 


0067 

35 

0004 

0527 

311 

AUP 

R0005 


0527 

10 

1955 

0959 

312 

SRT 

0004 


0959 

30 

0004 

0519 

313 

STL 

R0005 


0519 

20 

1955 

0558 

314 

AUP 

TEMPI 


0558 

10 

9001 

0715 

315 

STU 

R0004 


0715 

21 

1954 

0857 

316 

RAU 

TEMPO 


0857 

60 

9000 

0765 

317 

SRT 

000 2 


0765 

30 

0002 

0071 

318 

AUP 

R0004 


0071 

10 

1954 

1009 

319 

STU 

R0004 LOOK 


1009 

21 

1954 

0957 

320 1 

CONSTANTS FOR REfD 

ROUTINE 





321 823RD 

00 

0000 0880 


0044 

00 

0000 

C980 

322 1 








323 1 

TABLE LOOKUP ROUTINE TO FIND 





324 1 

CORRECT ROUTINE FOR 

SYMBOL 





325 1 

BEING PROCESSED 






326 1 








327 LOOK 

LDD 

SYMBL 


0957 

69 

0022 

0525 

328 

TLU 

U0001 


0525 

64 

0800 

0755 

329 

SUP 

8003 


0755 

11 

8003 

0063 

330 

SRT 

0004 


0063 

30 

0004 

0523 

331 

ALO 

100 I 8002 


0523 

15 

0076 

8002 

332 8002 

00 

0000 uoixx 


8002 

00 

0000 

0900 

333 1 









E-417 



CA w 14 back E -417 


107 


334 

U0101 

RAU SYMBl 


ATM PROGRM 

335 


SUP ATM 



336 


N2U 

PV009 


337 


HLT 9999 

1111 

WRONG SMBL 

338 

1 




339 

U0102 

RAU SYMBL 


BOP PROGRM 

340 


SUP BOP 



341 


NZU 

CLEAR 


342 


HLT 9999 

2222 

WRONG SMBL 

343 

1 




344 

U0103 

RAU SYMBL 


FUEL 

345 


SRT 0006 


ENTHALPY 

346 


SLO 8002 


PROGRAM 

347 


STD CODE 



340 


SLT 0006 



349 


SUP EF 



350 


NZU 

OK 3 


351 


HLT 9999 

3333 

WRONG SMBL 

352 

OK 3 

RAA 0319 

PAR 1 


353 

1 




354 

1 




355 

1 

CONSOLE 

POSITION 

2 IS SET TO 8 

356 

1 

IF IT IS 

1 DESIRED 

TO PUNCH OUT 

357 

1 

FUELS OXIDANTS PERCENTS AND 

358 

1 

ENTHALPTES 


359 

1 




360 

1 




361 

U0104 

RAU SYMBL 


PROPELLANT 

362 


SUP END 


READY TO 

36 3 


NZU 

DIST2 

PROCESS 

364 


HLT 9999 

4444 

WRONG SMBL 

365 

DIST2 

LDD 8000 



366 


B02 

END 1 


367 


RAL SPEC5 



368 


LDD END 1 

PUNCH 


369 

SPEC5 

00 0100 

0240 


370 

1 




371 

UO 105 

RAU SYMBL 


OXIDANT 

372 


SRT 0006 


ENTHALPY 

373 


SLO 8002 


PROGRAM 

374 


STD CODE 



375 


SLT 0006 



376 


SUP EX 



377 


NZU 

OK 5 


378 


HLT 9999 

5555 

WRONG SMBL 

379 

OK 5 

RAA 0329 

PAR 1 


380 ] 

L 




381 

UO 106 

RAU SYMBL 


FUEL 

36? 


SRT 0008 


PROGRAM 

383 


SLO 8002 



384 


STD CODE 



385 


SLT 0006 



386 


SUP F 



387 


NZU 

OK 6 


388 


HLT 9999 

6666 

WRONG SMBL 

389 

OK 6 

RAA 0099 



390 


STL R0007 

PV180 

CLER R0007 

391 1 





39? 

U0107 

RAU SYMBL 


MOLECULE 

393 


SUP MOL 


PROGRAM 

394 


NZU 

PV015 


395 


HLT 9999 

7777 

WRONG SMBL 

3 96 1 






0900 
0577 
0085 
0089 

0901 
0727 
0535 
0739 

0902 
0777 
0741 
0749 
0855 
0569 
0827 
0081 
0532 


0903 
0877 
0585 
0789 
0740 
0746 
0799 
1007 
0552 

0904 
0927 
0791 
0849 
0955 
0719 
0977 
0531 
0582 

0905 
1027 
0745 
0053 
1005 
0573 
0581 
0735 
0086 
0742 

0906 
1077 
0785 
0839 


60 0022 0577 
11 0080 0085 
44 0089 0040 
01 9999 1111 

60 0022 0727 
11 0530 0535 
44 0739 0050 
01 9999 2222 

60 0022 0777 
30 0006 0741 
16 8002 0749 
24 0052 0855 
35 0006 0569 
11 0072 0827 
44 0081 0532 
01 9999 3333 
80 0319 0088 


60 0022 0877 
11 0580 0585 
44 0789 0740 
01 9999 4444 
69 8^00 0746 
92 0799 0551 
65 0552 1007 
69 0551 1930 

00 0100 0240 

60 0022 0927 
30 0006 0791 
16 8002 0849 
24 0052 0955 
35 0006 0719 
11 0522 0977 
44 0531 0582 

01 9999 5555 
80 0329 0088 

60 0022 1027 
30 0008 0745 
16 8002 0053 
24 0052 1005 
35 0008 0573 
11 0526 0581 
44 0735 0086 
01 9999 6666 

00 0099 0742 
20 1957 0760 

60 002? 1077 
11 0730 0785 
44 0839 0790 

01 9999 7777 


397 

398 

399 

400 

401 

402 

403 

404 

405 

406 1 

407 

408 

409 

410 

411 

412 

413 
4 1 4 

415 

4 1 6 1 


U0108 

RAU 

SYMBL 


SRT 

0006 


SLO 

8002 


STD 

CODE 


SLT 

0006 


SUP 

NZU 

PF 


HLT 

9999 

CD 

* 

0 

RAA 

0299 

UO 109 

RAU 

SYMBL 


SRT 

0006 


SLO 

8002 


STD 

CODE 


SLT 

0006 


SUP 

NZU 

PX 


HLT 

9999 

OK 9 

RAA 

0309 


PERCENT 

FUEL 

PROGRAM 


OK 8 
8888 
Par 1 

PERCENT 

OXIOANT 

PROGRAM 


OK 9 
9999 
PAR 1 


0907 60 0022 1127 

1127 30 0006 0041 

0841 16 8002 0899 

0899 24 0052 1055 

1055 35 0006 0769 

0769 11 0572 1177 

1177 44 0731 0732 

0731 01 9«99 8888 

0732 80 0299 0088 

0908 60 0022 1227 

1227 30 0006 0891 

0891 16 8002 0949 

0949 24 0052 1105 

1105 35 0006 0819 

0819 11 0722 1277 

1277 44 0781 0782 

0781 01 9999 9999 

0782 80 0309 0088 



108 


a 1? uo n o 

4ie 
t ±19 
4 20 

421 

422 

423 

424 

425 OK 10 

426 


427 1 


428 1 


429 1 


430 

ATM 

431 

BOP 

432 

EF 

433 

END 

434 

EX 

435 

F 

4 36 

MOL 

437 

PF 

438 

PX 

439 

X 

440 

U0001 

441 

U0002 

442 

U0003 

443 

U0004 

4 44 

U0005 

445 

U0006 

446 

U0007 

447 

U0008 

448 

U0009 

449 

U0010 

450 

100 1 

451 

1 


452 1 

453 1 

454 1 


RAU 

SYMBL 


SRT 

0008 


SLO 

8002 


STD 

CODE 


SLT 

0008 


SUP 

X 


NZU 


OK 10 

HLT 

9999 

OOOO 

RAA 

0199 


STL 

R0007 

PV 18 0 


OXIDANT 

PROGRAM 

WRONG SMBL 
CLER R0007 


CONSTANTS FOR TABLE LOOKUP 
ROUTINE 

61 6374 0000 

62 7677 0000 

65 6600 0000 

65 7564 0000 

65 8700 0000 

66 0000 0000 

74 7673 0000 

77 6600 0000 

77 8700 0000 

87 0000 0000 

61 8374 0000 ATM 

62 7677 0000 BOP 

65 6699 0000 EF9 

65 7564 0000 END 

65 8799 0000 EX9 

66 9900 0000 F9 

74 7673 0000 MOL 

77 6699 0000 PF9 

77 8799 OOOO P*9 

87 9900 0000 X9 

00 OOOO 0100 


ROUTINE FOR PACKED VECTORS 
ATOMS START AT PV009 AND 
MOLECULES START AT PV015 


0909 60 0022 1327 
1327 30 0008 0795 
0795 16 8002 0553 
0553 24 0052 1155 
1155 35 0008 0723 
0723 11 0576 0831 
0831 44 0835 0536 
0835 01 9999 OOOO 
0536 80 0199 0792 
0792 20 1957 0760 


0080 61 8374 OOOO 

0530 62 7677 OOOO 

0072 65 6600 OOOO 

0580 65 7564 OOOO 

0522 65 8700 OOOO 

0526 66 OOOO OOOO 

0730 74 7673 OOOO 

0572 77 6600 OOOO 

0722 77 8700 OOOO 

0576 87 OOOO OOOO 

0800 61 6374 OOOO 

0801 62 7677 OOOO 

0802 65 6699 OOOO 

0803 65 7*64 OOOO 

0804 65 8799 OOOO 

0805 66 9900 OOOO 

0806 74 7673 OOOO 

0807 77 6699 OOOO 

0808 77 8799 OOOO 

0809 87 9900 OOOO 

0076 00 OOOO 0100 


455 1 

456 

PV009 

LDD R0007 

457 


STD P0009 

458 


RAU RELAY 

459 


NZU PVOH 

460 


HLT 2222 

461 1 

462 

PV011 

RAL R0002 

46 3 


SLT 0004 

464 


SUP 8003 

465 


NZE 

46 6 


HLT 3333 

467 

PV013 

RAL ATMCT 

468 


ALO UNITY 

469 


STL ATMCT 

470 


ALO R0002 

47 1 


AUP ATMCT 

472 


SLO 8002 

473 


SLT 0004 

474 


ALO 8001 

475 


AUP STORE 

476 

8 00 3 

STL A0001 

477 

PACKA 

RAU ATMCT 

478 


SLT 0001 

479 


AUP UNITY 

480 


STU P0007 

48 1 

PV015 

LDD R0007 

4 82 


STD P0009 

483 


RAU RELAY 

484 


NZU 

485 


STL RELAY 

486 


RAU UNITY 

487 


SLT 0001 

4 8 B 


SUP 8001 

489 


SUP ATMCT 

490 


BMI 

491 


HLT 4444 

492 

PV017 

STU COUNT 

493 

1 


494 

PV019 

RAU R0010 

495 


SRT 0001 

496 


RAL 8002 

497 


NZE 

498 


RAU COUNT 

499 


NZU PV024 

500 


HLT 5555 


8888 


PV013 

7777 


8003 

PACKA 


PV 116 


PV019 


PV017 

6666 

PV019 


PLACE CODE 
IN OUTPUT 
ITS ATOM 

SWITCH NOT 
INITIALIZE 
IS ATOM 

more than 

2 LETTERS 

YES STOP 
NO 

advance 

ATOM COUTT 
STORE ATC M 
COLUMN 
equivalent 
IN TABLE 


FORM ATO‘1 
VECTOR 
STORE IN 
PUNCH BAMD 
PLACE COE 
IN OUTPUT 
IS THIS 
FIRST MO, 
YES 

DID WE 
PROCESS 
MORE THAN 
TEN AT Oh 5 

TOO MAN\ 
SET SOLIDS 
COUNTER 
NO IS THIS 
MOLECUL! 
CONDENSED 

YES MAY WE 
PROCESS IT 
NO 


0040 69 1957 0810 
0810 24 1965 0738 
0738 60 0016 0521 
0521 44 0575 0726 
0726 01 2222 8888 


0575 

65 1952 

1057 

1057 

35 0004 

0517 

0517 

11 8003 

0725 

0725 

45 0028 

0079 

0028 

01 3333 

7777 

0079 

65 0560 

0815 

0815 

15 0550 

1205 

1205 

20 0560 

0513 

0513 

15 1952 

1107 

1107 

10 0560 

0365 

0865 

16 8002 

0773 

0773 

35 0004 

0083 

0083 

15 8001 

0941 

0941 

10 0744 

8003 

6003 

20 0001 

0754 

0754 

60 0560 

0915 

0915 

35 0001 

0571 

0571 

10 0550 

1255 

1255 

21 1983 

0586 

0790 

69 1957 

0860 

0860 

24 1985 

0788 

0788 

60 0016 

0721 

0721 

44 0775 

0776 

0775 

20 0016 

0869 

0869 

60 0550 

1305 

1305 

35 0001 

0511 

0511 

11 8001 

0919 

0919 

11 0560 

0965 

0965 

46 0018 

0969 

0018 

01 4444 

6666 

0969 

21 0024 

0776 

0776 

60 1960 

1015 

1015 

30 0001 

0771 

0771 

65 8002 

0529 

0529 

45 0832 

0533 

0832 

60 0024 

■ 0579 

0579 

44 0583 

l 0084 

0084 

01 5555 

> 5555 


5555 


E— 417 



E-417 


109 


30 1 

P V n 2 4 

SUP UNITY 


502 


STU COUNT 

PV023 

503 

PV023 

RAU R00C5 


504 


NZU 

PV025 

505 

1 



506 


HIT 6666 

4444 

507 

PV025 

RAL R0002 


508 


NZE PV031 


509 


HLT 7777 

3333 

5 10 

PV"31 

RAU CNTR1 


511 


STU CNTRX 


512 


STL TEMPI 

PV032 

513 

PV032 

RAL R0002 


514 


NZ E 

PVl 1 5 

515 


SLT 0001 


516 


SUP NINE I 


517 


NZU LETTR 

NUM0R 

518 

LETTR 

LDD PV032 

PV033 

5 19 

PV033 

STD LINK 


520 


RAL R0002 


521 


AUP TEMPI 


5 2? 


SLT 0002 


52? 


STU TEMPI 


524 


STL R0002 


525 


RAU CNTRX 


526 


AUP TWO D 


527 


STU CNTRX 

LINK 

520 

1 



529 

NUMBR 

LDD PV034 

PV033 

5 30 

PV034 

RAU TEMPI 


531 


SRT 0002 

PV087 

53? 

PV087 

SLO NINE 


533 


SLO 8002 


534 


STD MAGN f 


535 


SCT 0000 


536 


STU COMPO 

PV089 

537 

PV089 

RAL AOOOX 


538 


LDD PV091 


539 


SDA PV091 

8001 

5 40 

1 



541 

py 09 1 

RAL A0001 

PV093 

5 42 

PV093 

NZ E 

PV095 

543 


SRT 0001 


5 44 


SLT 0001 


3 45 


SLO COMPO 


546 


NZE 

P V 0 9 7 

5 47 


RAl PV091 


5 up 


ALO ONE D 


5 49 


STL PV091 

8001 

550 

1 



551 

PV095 

HLT 9888 

222 ? 

552 

1 



553 

PV097 

RAL °V091 


554 


LDD ° V099 


555 


SDA PV099 

8001 

556 

p\/09 9 

RAU A0001 

PV100 

557 

PV100 

SRT 0001 


558 


ALO MAGN I 


5 59 


SUP 8003 


560 


AUP P0007 


561 


SLT 0002 


562 


STU P0007 


563 


RAL R0003 

CNTRX 

564 

CNTRX 

SLT XXXXX 

PV101 

565 

1 



566 

PV101 

AUP R0002 


567 


STU R0002 


566 


STL R0003 


569 

1 



570 


RAL CNTRX 
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0009 
0000 
0000 
8003 

TEMPO 

9059 

F0001 

TEMPO 

TEMPO 

0001 

0010 
9040 

A0002 


2 

fuel 

COMB 


CLER TEMPO 
ATOMIC WT 

ATOM COEFF 
TEMPO HAS 
MOL WT 


CALCULATE 
NUMBER OF 
MOLES OF 
EACH FUEL 
OR OXIDANT 
WHICH GIVE 
1 GRAM OF 
COMBINED 
AND 1 GRAM OF 
[NED OXIDANT 


0973 

80 

0000 

1329 

1329 

82 

0190 

1085 

1085 

86 

0020 

1391 

1391 

1 1 

8003 

1149 

1 149 

21 

9000 

13 5B 

1358 

60 

2340 

1095 

1095 

44 

1199 

0850 

1199 

39 

4100 

0950 

0950 

32 

9000 

1379 

1379 

21 

9000 

1237 

1237 

50 

0001 

0943 

0943 

52 

0001 

1249 

1249 

51 

0010 

1408 

1406 

40 

1211 

0662 

1211 

50 

0010 

1358 

0862 

50 

0010 

0850 

0850 

60 

6299 

1203 

1203 

44 

1458 

1160 

1458 

34 

9000 

1160 

1160 

21 

6359 

0912 

0912 

53 

2010 

1319 

1319 

43 

0922 

1023 

1023 

80 

0000 

1429 

1429 

59 

0001 

1391 




NZ U 




RSA 

0009 



SXB 

0089 



AXC 

0001 

AR 

9 

SUP 

8003 



STU 

TEMPO 



STD 

TEMPI 



STD 

TEMP 2 



RSA 

0009 

AR 

10 

RAU 

S0010 A 



FMP 

9049 A 



BMI 




FAD 

TEMPI 



STU 

TEMPI 

AR 

11 

FAD 

TEMPO 



STU 

TEMPO 

AR 

12 

BMA 




AX A 

0001 

AR 

13 

RSA 

0009 

AR 

14 

RAU 

9059 A 



FMP 

9039 A 



FAD 

TEMP 2 



STU 

TEMP2 



BMA 




AXA 

0001 

AR 

15 

RAU 

RELAY 



NZU 




STL 

RELAY 

PCH 

F 

SET 

9040 



SBB 

0587 • 



RAL 

SPEC1 



LDD 




SET 

9000 



STB 

0598 


AR 6 
AR 7 

AR 8 
AR 7 

AR 9 

AR 6 


AR 10 


AR 11 

AR 12 

AR 12 
AR 13 
AR 10 
AR 14 


AR 15 
AR 14 

PCH 0 
PCH F 


RMPCH 


FUEL ENTH 

FUEL MOLES 
CLEAR 904 
8AND 


CLER TEMPO 
MOLES 

ATOM COEFF 


9040 TO 
9049 
CONTAIN 
ATOMS PER 
GRAM OF 
FUEL OR 
OXIDANT 


092 2 
1479 
1369 
0724 
1073 
0778 
1113 
0718 
0993 
1299 
1210 
1016 
1123 
1081 
1089 
1000 
0930 
1287 
0940 
0896 
1441 
1349 
1260 
1163 
1419 
1225 


60 0524 
21 0016 
27 9030 

08 0320 
27 9050 

09 0360 
27 9040 
08 0090 

81 0009 

82 0000 
88 0000 
11 8003 
21 9000 
60 9259 
39 4100 
32 9000 
21 9000 
41 0940 
50 0001 

52 0010 
21 9640 
60 6002 
44 1163 
81 0009 

53 0089 
58 0001 


1479 

1369 

0724 

1073 

0776 

1113 

0718 

0993 

1299 

1210 

1016 

1123 

1081 

1089 

1000 

0930 

1287 

1441 

0896 

1081 

1349 

1260 

0814 

1419 

1225 

1016 


LDD TEMP 2 
STD 0597 
RAL SPEC2 
LDD 


CLER TEMPO 
CLER TEMPI 
CLER TEMP2 


PLUS AND 
MINUS 
VALENCES 
PER GRAM 
OF FUEL 
OR OXIDANT 


ENTHALPY 
PER GRAM 
OF FUEL 
OR OXIDANT 


PUNCH 
ATOMS AND 
ENTHALPY 
AND VALENC 
PER GRAM 
OF FUEL 


RMPCH 


0814 

1421 

0980 

0836 

0992 

0748 

1213 

1066 

1469 

1399 

0570 

1449 

1310 

1263 

0864 

0720 

0828 

1131 

1261 

0770 

1173 

0774 

1471 

1275 

0820 

1325 

0990 

0897 

1050 
1360 

1051 
1410 
1100 
1460 


11 8003 
21 9000 
24 9001 
24 9002 
81 0009 
60 2359 
39 9249 
46 1469 
32 9001 
21 9001 
32 9000 
21 9000 
41 1263 
50 0001 
81 0009 
60 9259 
39 9239 
32 9002 
21 9002 
41 1173 
50 0001 
60 0016 
44 1275 
20 0016 

27 9040 

28 0587 
65 1043 
69 1050 
27 9000 

29 0598 
69 9002 
24 0597 
65 1253 
69 1313 


1421 

0980 

0836 

0992 

0748 

1213 

1066 

0570 

1399 

1310 

1449 

1310 

0864 

0748 

0720 

0828 

1131 

1261 

0770 

0774 

0720 

1471 

0976 

0820 

1325 

0990 

0897 

1940 

1360 

1051 

1410 

1100 

1460 

1940 
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921 

SET 

9030 


OXIDANT 

92 2 

lbb 

E0001 


ENTHALPIiS 

9 2 3 

SET 

9050 


OXIDANT 

9 24 

ldb 

N0011 


MOLES 

925 

SET 

9040 


CLEAR 904 

926 

lbb 

0090 


BAND 

927 

RS A 

0009 



928 

RAB 

0100 



929 

RAC 

0000 

AR 6 


93C PCH 0 

SET 

9040 


PUNCH 

931 

SBB 

0537 


ATOMS AND 

9 32 

ral 

SPEC3 


ENTHALPY 

9 33 

LOD 


RMPCH 

and valenc 

9 34 

SET 

9000 


PER GRAM 

935 

STB 

0548 


OF OXIDANT 

936 

LDD 

TEMP 2 



937 

STD 

0547 



9 38 

RAL 

SPEC4 



9 39 

LOD 

FINIS 

RMPCH 


940 1 

CONSTANTS FOR CALCULATING 

941 1 


ROUTINE 


942 1 





943 MASK6 

RAL 

0000 

MW 4 


944 MAS K 7 

LDD 

0000 

MW 8 


945 47 I 

00 

0000 

0047 


946 51 I 

00 

0000 

0051 


947 200 D 

00 

0200 

0000 


948 10053 

10 

0000 

0053 


949 11051 

11 

0000 

0051 


950 10051 

10 

0000 

0051 


951 FINIS 

HLT 

9999 

9999 

END PRO SRM 

952 SPEC 1 

00 

0587 

0010 


953 SPEC2 

00 

0597 

0003 


954 SPEC3 

00 

0537 

0010 


955 SPEC4 

00 

0547 

0003 


956 1 

957 1 


ROCKET 

PACKAGE 

EXCERPT FOR 

958 1 


VECTOR 

and propellants program 

959 1 





960 

BLA 

1500 

1999 


961 

BLR 

0000 

1499 


962 1 





963 1 


OUTPUT 

ROUTINE 


964 1 


PUNCH 

BELL CARDS 


1313 
0768 
1083 
1088 
12 23 
0878 
1093 
1 499 
1311 
0976 
1181 
1040 
0947 
1150 
1361 
1101 
1411 
1200 
1461 


0584 

0872 

1063 

0843 

0764 

1406 

0534 

0524 

0914 

1043 

1253 

1143 

1303 


965 1 

Q66 KEG C9050 9050 

967 REG J1991 1996 

968 REG K 1 965 1970 

969 REG P 1 977 1986 

970 SYN JOOON 1990 

971 SYN PROS 1864 

972 EOU LOC 0000 


27 9030 0766 

08 0330 1083 
27 9050 1088 

09 0370 1223 
27 9040 0878 
08 0090 1093 

81 0009 1499 

82 0100 1311 
88 0000 1016 

27 9040 1181 

28 053? 1040 
65 1143 0947 
69 1150 1940 
27 9000 1361 

29 0546 1101 
69 9002 1411 
24 0547 1200 
65 1303 1461 
69 0914 1940 


65 0000 1306 
69 0000 1153 
00 0000 0047 

00 0000 0051 
00 0200 0000 

10 0000 0053 

11 0000 0051 
10 0000 0051 

01 9999 9999 
00 0587 0010 
00 0597 0003 
00 0537 0010 
00 0547 0003 


973 1 




97a 

PUNCH 

STD LINK 


975 


LDD 8003 


976 


SDA C0005 


977 


SLT 0004 


978 


SDA C0006 


979 


SRT 0002 


980 


RAU 8003 


981 


SRT 0002 


982 


SET C0007 


983 


LDD WDCT6 


984 


STD P0009 


985 


LDD prob 


986 


STD P0008 


987 


LDD C0005 

PCH3 

986 

PCH3 

STD P0007 


989 


ALO CARDN 


990 


ALO ONE d 


991 


SDA CARDN 


992 


STL P0010 

NZERO 

993 

N2ER0 

RAU C0006 


9 94 


SUP WDCT6 


995 


BMI LESS6 

PCH4 

996 

PCH4 

STU C0006 


997 


RAU P0009 


998 


SRT 0004 


999 


AUP XMOVE 


1000 


ALO XLOC 


1001 


ALO C0005 

MOVEW 


START HERE 

1930 

24 

0638 

1541 

1541 

69 

8003 

1548 

1ST WO ^D 

1548 

22 

9054 

1504 

1504 

35 

0004 

1515 

NUMBER wds 

1515 

22 

9055 

1522 

1522 

30 

0002 

1529 


1529 

60 

8003 

1537 


1537 

30 

0002 

1543 


1543 

27 

9056 

1598 


1598 

69 

1501 

1554 


1554 

24 

1985 

1538 


1538 

69 

1 * 64 

1517 


1517 

24 

1984 

1587 


1587 

69 

9054 

1593 


1593 

24 

1983 

1536 


1536 

15 

1539 

1643 


1643 

15 

0516 

1521 


1521 

22 

1539 

1542 


1542 

20 

1986 

1589 

IS NO OF 

1589 

60 

9055 

1547 

WORDS LESS 

1547 

11 

1501 

1505 


1505 

46 

1508 

1509 


1509 

21 

9055 

1567 


1567 

60 

1985 

1639 


1639 

30 

0004 

1549 

SET TO MOV 

1549 

10 

1502 

1507 

N WOF:DS 

1507 

15 

1510 

1565 


1565 

15 

9054 

1523 


m-s 


ua-jlo uac ta 
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1002 

MOVE W 

AUP 

09999 

8002 


1523 

1003 

8002 

LDD 

LOC 

8003 


8002 

1004 

8003 

STD 

P0007 

JOOON 


8003 

1005 

JOOOO 

RAU 

C0006 

PCH2 


1990 

1006 

J0001 

RAU 

CO 00 6 

PCH2 


1991 

1007 

J0002 

ALO 

ONE D 

MOVEW 


1992 

1008 

J0003 

ALO 

ONE D 

MOVEW 


1993 

1009 

J0004 

ALO 

ONE D 

MOVEW 


1994 

1C.10 

J0005 

ALO 

ONE D 

MOVEW 


1995 

1011 

J0006 

ALO 

ONE D 

MOVEW 


1996 

1012 

PCH2 

PCH 

P0001 



1597 

1013 


N2E 


LINK 

IS IT DONE 

1527 

1014 


RAU 

P0007 



15 30 

1015 


AUP 

P0009 



1637 

1016 


STU 

C0005 

PCH3 


1689 

1017 1 







1018 

L F SS6 

RAL 

C0006 



1508 

1019 


STD 

P0009 



1615 

1020 


SRT 

0004 


CLEAR ZERO 

1588 

1021 


ALO 

XCLER 

8002 


1599 

1022 

8002 

00 

0000 

K0001 


8002 

10 2 3 

<0001 

STU 

P0001 

K0002 


1965 

1024 

<0002 

STU 

P0002 

K0003 


1966 

102 5 

<0003 

STU 

P0003 

<0004 


1967 

1C2 6 

<0004 

STU 

P0004 

<0005 


1968 

1027 

<0005 

STU 

P0005 

<0006 


1969 

1028 

<0006 

STU 

P0006 

PCH4 


1970 

1029 1 







1030 

XCLER 

00 

0000 

<0001 


1552 

1031 

WDCT6 

00 

0006 

0000 


1501 

1032 

9999 

00 

0000 

9999 


1526 

1033 

XLOC 

LDD 

0000 

8003 


1510 

1034 

XMOVE 

STD 

POOOO 

J0001 


1502 

1035 

CARDN 

00 

0000 

0000 


1539 

1036 

ONE D 

00 

0001 

0000 


0516 

1037 1 







1038 1 


OUTPUT 

ROUTINE 



1039 1 


RANDOM 

LOCATION 

CARDS WITH 


1040 1 


ZERO VALUES OMITTED 


1041 1 







1042 


REG 

C9050 

9050 



1043 


REG 

LI 841 

1844 



1044 


REG 

P 1 977 

1986 



1045 


REG 

01845 

1845 



1046 


SVN 

LOC 

0000 



1047 1 







1046 

RMPCH 

STD 

LINK 



1940 

1049 


LDD 

8006 


SAVE INDEX 

1591 

1050 


STD 

C0003 


ACC B AND 

1647 

1051 


LDD 

8007 


C 

1503 

1052 


STD 

C0004 



1559 

1053 


RAC 

8002 


NO OF WDS 

1665 

1054 1 







1055 


LDD 

8003 



1573 

1056 


SDA 

C0005 


1ST WORD 

1580 

1057 


SLT 

0004 



1586 

1058 


SDA 

C0006 


NUMBER WDS 

1697 

1059 


SRT 

0002 



1604 

1060 


RAU 

8003 



1511 

1061 


SRT 

0002 



1519 

1062 


SET 

C0007 



1525 

1063 


LBB 

L0001 


C0004 IS 

1630 

1064 


STL 

C0006 


COL 80 

1544 

1065 


RSB 

0004 


LOCATION 

1602 

1066 


RAL 

C0005 



1558 

1067 


ALO 

PCHX 

ENT 1 

C0003 IS 

1715 

1068 

ENT 1 

STL 

CO 00 5 


CURRENT 

1623 

1069 1 





LOCATION 


1070 


ALO 

XRAU 

8002 


1680 

1071 

8002 

RAU 1 

LOC 

00001 


0002 

1072 

00001 

NZU I 

MOVER 

C0007 

C0007 HAS 

1845 

1073 1 





L0001 


1074 

L0001 

SXC 

0001 



1841 

1075 


NZC 


FINS 


1747 

1076 


RAL COCO 5 



1500 

1077 


ALO ONE D 

ENT 1 


1557 

1078 1 








10 1526 8002 
69 0000 8003 
24 1983 1990 
60 9055 1597 
60 9055 1597 
15 0516 1523 
15 0516 1523 
15 0516 1523 
15 0516 1523 
15 0516 1523 
71 1977 1527 
k 5 1530 0838 
60 1983 1637 
10 1985 1689 
21 9054 1593 

65 9055 1615 
2k 1985 1508 
30 0004 1599 
15 1552 8002 
00 0000 1965 
21 1977 1966 
21 1«78 1967 
21 1979 1968 
21 1980 1969 
21 1981 1970 
21 1982 1509 

00 0000 1965 
00 0006 0000 
00 0000 9999 
69 0000 8003 
24 1976 1991 
00 0000 0000 
00 0001 0000 


24 0838 1591 
69 8006 1647 
24 9052 1503 
69 8007 1559 
24 9053 1665 
88 8002 1573 

69 8003 1580 
22 9054 1586 
35 0004 1697 
22 9055 1604 
30 0002 1511 
60 8003 1519 
30 0002 1525 
27 9056 1630 
08 1*41 1544 
20 9055 1602 
83 0004 1558 
65 9054 1715 
15 1518 1623 
20 9054 1680 

15 1*33 8002 
60 0000 1845 
44 1649 9056 

59 0001 1747 
48 1500 1551 
65 9054 1557 
15 0516 1623 
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1079 

MOVER 

STD 

P0005 8 


MOVE WD 

1649 

24 

5981 

1534 

1080 


ral 

C0005 



1534 

65 

9054 

1641 

1081 


STD 

P0010 R 



1641 

24 

5986 

1739 

1082 


NZB 


PCH5 

IS CARO 

1739 

42 

1592 

1693 

1083 


AXB 

0001 

C0007 

FULL YET 

1592 

52 

0001 

9056 

1084 

PCH5 

BMI 


PLUS 


1693 

46 

1546 

1797 

1085 


SLO 

C0006 

BOTH 

FIX COL 8 

1546 

16 

9055 

1553 

1086 

PLUS 

ALO 

C0006 

BOTH 


1797 

15 

9055 

1553 

1087 

BOTH 

STL 

P0010 



1553 

20 

1986 

1789 

1088 


RAL 

RMCDN 


NUMBER CDS 

1789 

65 

1642 

1847 

1089 


ALO 

ONE I 



1847 

15 

1356 

1561 

1090 


STL 

RMCDN 



1561 

20 

1642 

1545 

1091 


LDD 

P 0009 



1545 

69 

1985 

1636 

109? 


SI A 

P0009 



1638 

23 

1985 

1688 

1093 


P<M 

P0001 


PUNCH CARD 

1688 

71 

1977 

1577 

1094 


RSB 

0004 

C0008 

C0008 HAS 

1577 

83 

0004 

9057 

1095 

L 000 2 

STU 

C 0006 

C0007 

L0002 

1842 

21 

9055 

9056 

1096 1 










1097 

ONE D 

00 

0001 

0000 


0516 

00 

0001 

0000 

109 8 

ONE I 

00 

0000 

0001 

ONE INSTR 

1356 

00 

0000 

0001 

1099 

XRAU 

59 

9999 

02001 


1533 

59 

9999 

3845 

1100 

PCHX 

00 

0000 

8000 


1518 

00 

0000 

8000 

1101 

RMCDN 

00 

0000 

0000 

RANDOM CD 

1642 

00 

onoo 

0000 

1102 1 





NUMBER 





1103 

E I NS 

SET 

C0007 


CHANGE 

1551 

27 

9056 

1506 

1104 


LBB 

L0003 


ORDERS 

1506 

08 

1843 

1596 

1105 


RSL 

PCHX 


FOR FINS 

1596 

66 

1518 

1673 

1106 


STL 

C 000 5 

C0007 


1673 

20 

9054 

9056 

1107 

L 0 003 

LDD 

8003 

MOVER 


1843 

69 

6003 

1649 

1108 

L 0 004 

RAB 

C0001 


RESTOR 

1844 

82 

9050 

1652 

1109 


RAC 

CO 00 2 

LINK 

I NDX ACC 

1652 

88 

9051 

0838 


1110 PAT 


E-417 



<±_L / 
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APPENDIX I 

533 CONTROL PANEL ("ROCKET BOARD") WIRING INSTRUCTIONS 

I. Read card C is used for reading Bell format cards. The word 
positions are numbered from the right (see 650 Manual of Operation, p. 10) : 


Read card C 
(card 
column) 

Storage entry C 

Word 

size entry 
C 

11 

Sign of word 1 


12-21 

Word 1, positions 10 to 1 

10 

22 

Sign of word 2 


23-32 

Word 2, positions 10 to 1 

10 

33 

Sign of word 3 


34-43 

Word 3, positions 10 to 1 

10 

44 

Sign of word 4 


45-54 

Word 4, positions 10 to 1 

10 

55 

Sign of word 5 


56-65 

Word 5, positions 10 to 1 

10 

66 

Sign of word 6 


67-76 

Word 6, positions 10 to 1 

10 

6-9 

Word 7, positions 8 to 5, emit sign + 

8 

5, 77-79 

Word 8, positions 8 to 5 , emit sign + 

8 

80, 1-4 

Word 9, positions 9 to 5, emit sign + 

9 

10 

Word 10, position 5, emit sign +; 

5 


positions 4 to 1 of words 7, 8, 9, and 



10 wired to emit zero 
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II. Read card B is used for reading Random location format cards 


Read card B 
(card 
column) 

Storage entry B 

Word 

size entry 
B 

5-15 

Word 1, positions 10 to 1, col. 15 is sign 

10 

20-30 

Word 2, positions 10 to 1, col. 30 is sign 

10 

35-45 

Word 3, positions 10 to 1, col. 45 is sign 

10 

50-60 

Word 4, positions 10 to 1, col. 60 is sign 

10 

65- 75 

Word 5, positions 10 to 1, col. 75 is sign 

10 

1-4 

Word 6, positions 8 to 5 y emit sign P 

8 

16-19 

Word 7 y positions 8 to 5, emit sign + 

8 

31-34 

Word 8, positions 8 to 5, emit sign + 

8 

46-49 

Word 9, positions 8 to 5 ; emit sign + 

8 

61-64 

Co-selector 1 transferred points (U, 1 to 
4) (make col. 61 a split wire. p. 119) 


76-80 



Not wired 

Words 6 to 9 emit zero into po sitions 4 to 1 

i 


Selector wiring for deteimining and entering the word count m word 
10 and ensuring that word 10 is a legitimate word is as follows: 


Co-selector 1 common (W, 1 to 4) to word 10, positions 8 to 5 
storage entry B 

Word size of word 10. entry B is 8 

Co-selector 1 normal (V, 1 to 4), to (V, 52). (This guaran- 
tees a nonzero value on word 10 to preserve the negative 
sign for a branch on minus test.) 

Emit zeros to word 10, positions 4 to 2, storage entry B 

Emit sign of word 10 minus (V, 28) 

Pilot selector 1 common (K, 23) to word 10, position 1, s orage 
entry B 

Pilot selector 1 normal ( J, 23) to emit zero 

Pilot selector 1 transferred (H, 23) to tilot selector 2 common 
(K, 24) 


L i-t*' 
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Pilot selector 2 transferred (H, 24) to pilot selector 3 common 
(K, 25) 

Pilot selector 3 normal (j, 25) to emit 2 (W, 21) 

Pilot selector 3 transferred (H, 25) to pilot selector 4 common 
(K, 26) 

Pilot selector 4 normal (j, 26) to emit 3 (x, 2l) 

Pilot selector 4 transferred (H, 26) to pilot selector 5 common 
(K, 27) 

Pilot selector 5 normal (j, 27) to emit 4 (Y, 2l) 

Pilot selector 5 transferred (H, 27) to emit 5 ( Z , 2l) 

Pilot selector 2 normal (J , 24) to emit 1 (V, 2l) 

First reading col. 1 (A, 23) to load (B, 2l) } 

First reading col. 1 (A, 23) to common of col. split > split wire 
(Z, 34) J 

Col. split 0-9 (Y, 34) to D pick pilot selector 1 (F, 23) 

Co-selector 3 pick (R, 25) to col. split 12-X (X, 34) 

Co-selector 3 common (W, 11) to emit 9 (W, 34) 

Co-selector 3 transfer (U, ll) to entry B (D, 2l) 

First reading col. 16 (A, 38) to D pick pilot selector 2 
(F, 24) 

First reading col. 31 (C, 33) to D pick pilot selector 3 
(F, 25) 

First reading col. 46 (C, 28) to D pick pilot selector 4 
(F, 26) (Split wire, p. 120 ) 

First reading col. 61 (D, 23) to D pick pilot selector 5 
(F, 27) 

Couple pilot selector 5 (Gj 27) to co-selector pickup 1 
(S, 23) 

Digit impulse (Q, 21 ) to digit selector common (R, 2l) 

First reading col. 15 (A, 37) to col. split 12-X (X, 33) 

Col. split common ( Z , 33) to entry B (D, 22) 

Hold for pilot selectors 1 to 5 (P, 23 to 27) and co-selectors 1 and 
3 (U, 23 and 25) are wired to read hold (T, 39) . 

III. Read card A is used to read input cards (SOAP II format) for 
Vector and Propellant Program (requires the alphabetic attachment and 
pilot selectors 11, 12, 13) : 

First reading col. 3 (A, 25) to col. split common (Z, 35) 

Col. split 12-X (X, 35) to entry A (C, 22) 

Entry A (C, 23) to pilot selector 12-X pick (E, 34) 

Pilot selector 12 couple exit (G, 34) to alphabetic control WI 
(AL, 12) and also to W2 to W6. 
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Storage entry A, word 10, position 3 (J, 19) to pilot selector 13 
common (K, 35) 

Pilot selector 13 normal (J, 35) to zero read impulse (AN, 20) 

Pilot selector 13 transfer (H, 35) to read card A, col. 41 (C, l) 
Pilot selector 13 D pick (F, 35) to firs", reading col. 41 (C, 23) 
Storage entry A, word 10, position 2 (j, 20) to pilot selector 13 
common (N, 35) 

Pilot selector 13 normal (M, 35) to zero read impulse (AP, 20) 

Pilot selector 13 transfer (L, 35) to read impulse 9 (V, 34) 

Storage entry A, word 10, position 1 (J, 21) to pilot selector 11 
common (N, 33) 

Pilot selector 11 normal (M, 33) to zero read impulse (AP, 21) 

Pilot selector 11 transfer (L, 33) to read impulse 8 (V, 33) 

Pilot selector 11 D pick (F, 33) to first reading, col. 42 (C, 24) 

Read card A, col. 43 (C, 3) to storage entry A, word 1, position 5 

(E, 6) 

Read card A, col. 44 to 47 (C, 4 to 7) split wire to word 1, posi- 
tions 4 to 1 (E, 7 to 10) and to word 7, positions 4 to 1 (H, 

7 to 10) 

Read card A, col. 48 to 50 (C, 8 to 10) to word 4, positions 5 to 3 
(F, 17 to 19) 

Read card A, col. 51 (C, ll) to word 2, position 5 (E, 17) 

Read card A, col. 52 to 55 (C, 12 to 15) split wire to word 2, 

positions 4 to 1 (E, 18 to 21) and to word 8, positions 4 to 1 
(H, 18 to 21) 

Read card A, col. 56 (C, 16) to word 4, position 2 (F, 20) 

Read card A, col. 57 (C, 17) to word 3, position 5 (F, 6) 

Read card A, col. 58 to 61 (C, 18 to D, I) split wire to word 3, 

positions 4 to 1 (F, 7 to 10) and to word 9, positions 4 to 1 
(J, 7 to 10) 

Read card A, col. 62 (D, 2) to word 4, position 1 (F, 21) 

Read card A, col. 63 to 67 (D, 3 to 7) to word 5, positions 5 to 1 

(G, 6 to 10) 

Read card A, col. 68 to 72 (D, 8 to 12) to word 6, positions 5 to 1 
(G, 17 to 21) 

First reading, col. 43 to 47 (C, 25 to 29) to alphabetic first read, 
word 1, positions 5 to 1 (AK, 13 tc 17) 

Col. 48 to 50 (C, 30 to 32) to alphabetic first read, word 4, 
positions 5 to 3 (AL , 18 to 20) 

Col. 51 to 55 (C, 33 to 37) to alphabetic first read, word 2, 
positions 5 to 1 (AK, 18 to 22) 

Col. 56 (C, 38) to alphabetic first read, word 4, position 2 (AL, 

21 ) 

Col. 57 to 61 (C, 39 to D, 23) to alphabetic first read, word 3, 
positions 5 to 1 (AL, 13 to 17) 

Col. 62 (D, 24) to alphabetic first read, word 4, position 1 (AL, 22) 
Col. 63 to 67 (D, 25 to 29) to alphabetic first read, word 5, 
positions 5 to 1 (AM, 13 to 17) 

Col. 68 to 72 (D, 30 to 34) to alphabetic first read, word 6, posi- 
tions 5 to 1 (AM, 18 to 22) 
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Read validity check wire off (AR, 43) to (AR, 44) 

Chain wire pilot selector hold of pilot selectors 11. 12, and 13 
(P, 33 to 35) to read hold (T, 39) 

Word size entry A, words 7 to 9 (AL, 7 to 9) to word size emitter 4 
(AK, 5) 

Word size entry A, word 10 (AL, 10) to word size emitter 3 (AK, 4) 

IV. Punch card C is used to punch Bell format cards and Trace format 
cards : 


Punch card C 
(card 
column) 

Storage exit C 

ii 

Sign of word 1 

12-21 

Word 1 , positions 10 to 1 

22 

Sign of word 2 

23-32 

Word 2, positions 10 to 1 

33 

Sign of word 3 

34-43 

Word 3, positions 10 to 1 

44 

Sign of word 4 

45-54 

Word 4, positions 10 to 1 

55 

Sign of word 5 

56-65 

Word 5 , positions 10 to 1 

66 

Co-selector 7 common (w, 59) 

Co-selector 7 normal (V, 59) to word 6 sign 
(AC, 64) (Split wire, see Trace cards) 

67 

Word 6, position 10 

68-72 

Co-selectors 6 and 7 common (W, 54 to 58) 
Co-selectors 6 and 7 normal (w, 54 to 58) 
to word 6, positions 9 to 5 

73-76 

Word 6, positions 4 to 1 

6-9 

Co-selector 6 common (W, 50 to 53) 
Co-selector 6 normal (V, 50 to 53) to word 
7, positions 8 to 5 

5, 77-79 

Word 8, positions 8 to 5 

10 

Word 9, position 5 

H 

O 

CO 

Word 10, positions 9 to 5 
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For ® ector 6 transfer (U, 50 to 53) to word 7, positions 4 to 1 

Co-selectors 6 and 7 transfer (U, 54 to 57) to word 8, positions 

Co-selector 7 transfer (U, 58) to word 6, sign position 
Co-selector 7 transfer (U, 59) to word 8, sign position 


An 8 in position 9 of word 10 causes Trace cards to "be punched by 
means of control information* 

Control infonnation (AM, 56) to co-selectors 6 and 7 pick (R, 28, 

oq \ 

Co-selectors 6 and 7 hold (T, 28, 29) to uunch hold (R, 39) 

Jack plug "P+” (V, 42) to (W, 42) 
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V. Punch card B is used to punch Random location cards: 


Punch card B 
( card 
column) 

Storage exit B 

5-15 

Word 1 , positions 10 to 1, col. 15 is sign 

20-30 

Word 2, positions 10 to 1, col. 30 is sign 

35-45 

Word 3, positions 10 to 1, col. 45 is sign 

50-60 

Word 4 , positions 10 to 1, col. 60 is sign 

65-75 

Word 5, positions 10 to 1, col. 75 is sign 

1 

Pilot selector 6 common (K, 28) 


Pilot selector 6 normal ( J, 28) to word 6, 


position 8 

2-4 

Word 6, positions 7 to 5 

16 

Pilot selector 7 common (K, 29) 


Pilot selector 7 normal (J, 29) to word 7 , 


position 8 

17-19 

Word 7, positions 7 to 5 

31 

Pilot selector 8 common (K, 30 ) 


Pilot selector *8 normal (J, 30 ) to word 8, 


position 8 

32-34 

Word 8, positions 7 to 5 

46 

Pilot selector 9 common (K, 31 ) 


Pilot selector 9 normal (J ^ 3l) to word 9, 


position 8 

47-49 

Word 9, positions 7 to 5 

61 

Pilot selector 10 common (K, 32) 


Pilot selector 10 normal (J, 32) to word 10, 


position 8 

62-64 

WorpL 10, positions 7 to 5 

76-79 

Word 9, positions 4 to 1 

80 

Word 10, position 9 
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Pilot selector 6 I pick (G, 28) to sign word 6 

Pilot selector 7 I pick (G, 29) to sign word 7 

Pilot selector 8 I pick (G, 30) to sign word 8 

Pilot selector 9 I pick (G, 31) to sign word 9 

Pilot selector 10 I pick (G, 32) to sign word 10 
Co-selector 2 pick (R, 24) to punch X impulse (A, 43) 

Co-selector 2 common (W, 6) to punch hold (R, 39) 

Co-selector 2 transferred (U, 6) split wire to transfer of pilot 
selectors 6 to 10 inclusive (L, 28 to 32) 

Pilot selectors 6 to 10 common (N, 28 to 32) to pilot selector 
hold 6 to 10 (Q, 28 to 32) 

Co-selector 2 hold (T, 24) to punch hold (S, 39) 

Control information 4 (AK, 61) to punch E (D, 43) 

VI. Punch card A is used to punch SOAP II format cards: 
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Punch card A 
(card column) 


Storage exit A 


1 


Col. split common (AM, 52) 


Col. split 0-9 (AJL, 52) to emit 6 (AA, 43) 
Col. split 12-X (AK, 52) to emit 12 (5, 43) 
Wire DI (Q, 43) to common (JR, 43) 


9 


JEmit 9, 1,9, 5, 4, respectively, from punch emitter 


7-10 


11-20 

21 


Co-selector 5 common positions 4 to 1 (W,-46 to 49) 
Co-selector 5 normal positions 4 to 2 (V, 46 to 48) 
to emit 1,9,5, respectively, from punch emitter 
Co-selector 5 normal position 1 (V, 49) to col. 

split common (AM, 45) 

Col. split 0-9 (AL, 45) to emit 3 
Col. split 12-X (AK, 45) to emit 12 (S, 43) 
Co-selector 5 transfer positions 4 to 2 (U, 46 to 
48) to emit 8,0,0, respectively 
Co-selector 5 transfer position 1 (U, 49) to col. 

split common (AM, 46) 

Col. split 0-9 (AL, 46) to emit 3 

Col. split 12-X (AK, 46) to emit 12 (S, 43) 

Word 9, positions 10 to 1, wire sign of word 9 to 
col. 20 with col. split (AM, 47) 

JEmit 2 


22 


Emit 4 


23-26 

27-29 

30 

31-40 

41 

42 

43-47 

48-50 

51-55 

56 

57-61 

62 

63-67 

68-72 


Word 8, positions 8 to 5 

Emit 8,0,0, respectively 

Col. split common (AM, 48) 

Col. split 0-9 (AM, 48) to emit 0 
Col. split 12-X (AM, 48) to emit 12 

Word 7, positions 10 to 1, wire sign through col. 
split to col. 40 and 42 


Word 

8, 

position 

1 



Sign 

of 

word 7 




Word 

1, 

positions 

5 

to 

1 

Word 

4, 

positions 

5 

to 

3 

Word 

2, 

positions 

5 

to 

1 

Word 

4, 

position ; 

2 



Word 

3, 

positions 

5 

to 

1 

Word 


position J 

L 



Word 

5, 

positions 

5 

to 

1 

Word 

6, 

positions 

5 

to 

1 
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Control information 2 (AK, 63) to co-selector 5 pick (R, 
Control information 3 (AK, 62) to Alpha cut W1 and also 

to W2, W3, W4, W5, and W6 

3 (AL, 62) to Punch / (C, 43) 

Co-selector 5 hold (T, 27) to punch hold (R, 40) 


27) 

chain wire 
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TABLE I. - COEFFICIENTS FOR OBTAINING THERMODYNAMIC DATA FOR SEVERAL SUBSTANCES 
[Coefficients for use In equations ( 105 ) to ( 107 ).] 


Sub- 

stance 

(a) 

Tempe rature 
Interval, 
°K 

[_ . " - 


A 



B 



c 

150 

- 

3 00 

+2527 

8238 

51 

+ 1867 

O' 

* 

o 

o 

*7 

-2011 


300 


50C 

+2511 

0512 

51 

♦ 23*1 

2*31 

*6 

-206* 


500 


700 

♦ 2505 

91*4 

51 

+ 1127 

962* 

*6 

-630* 


700 

- 

1000 

♦ 2503 

4230 

51 

+5325 

3290 

*5 

-2160 


1000 

“ 

1300 

+2503 

2775 

51 

+ 5521 

0150 

*5 

-1695 


1300 

- 

1700 

♦250* 

65*6 

51 

♦931* 

6910 

*5 

-2*65 


1700 


2100 

+ 2501 

5285 

51 

♦ 5907 

5500 

*5 

-1820 


2100 

- 

2600 

+ 2*88 

*570 

51 

-13*5 

7700 

*6 

+ 8700 


2600 


3200 

+ 2*72 

3653 

51 

-4335 

7912 

*6 

+ 3975 


3200 


3800 

+ 2*76 

2539 

51 

-6*93 

0882 

*6 

+ 5316 


3800 

- 

*400 

♦ 250* 

13*0 

51 

-70*1 

0160 

*6 

+ 5063 


*400 

- 

5000 

+25*6 

5088 

51 

-6519 

6370 

*6 

+ 4155 


5000 

~ 

6000 

+ 2610 

*5*0 

51 

-47*1 

7690 

*6 

♦266* 

Graphite 

300 

- 

500 

+ 5673 

0710 

50 

-2106 

22*1 

*6 

♦ 17*4 


500 


700 

+ 1056 

3269 

51 

-206* 

18*2 

*8 

+ 1091 


700 

- 

1000 

+ 1628 

3807 

51 

-1307 

2653 

*8 

+ 5023 


1000 


1300 

+2289 

3860 

31 

-39*7 

*982 

*7 

+ 9829 


1300 


1700 

+ 2*07 

1*76 

51 

-478* 

1780 

*7 

+ 1008 


1700 

- 

2100 

+ 2709 

5*22 

51 

-2313 

1973 

*7 

♦3670 


2100 

“ 

2600 

♦ 28*1 

*329 

51 

-1619 

7368 

47 

+ 2059 


2600 

* 

3200 

♦ 2958 

2033 

51 

-11*6 

5505 

47 

+ 115* 


3200 

* 

3800 

♦ 30*0 

32*7 

51 

-9509 

5628 

*6 

+ 761* 


3600 

“ 

4*00 

♦ 3097 

3807 

51 

-9187 

9709 

*6 

+618* 


4*00 


5000 

+ 3152 

7766 

51 

-8885 

2831 

46 

+5138 

CC1 

150 


300 

♦3820 

336* 

51 

♦4255 

*820 

47 

-7*10 


300 

- 

500 

♦ 3693 

1871 

51 

-92*1 

6910 

47 

+7775 

500 

- 

700 

♦3912 

5706 

51 

-7820 

0920 

*7 

+*222 

700 

• 

1000 

♦ 4115 

6696 

51 

-*3*2 

0956 

47 

+ 1693 


1000 

- 

1300 

+*271 

6614 

51 

-2203 

08*7 

47 

+ 6118 


1300 

- 

1700 

♦4378 

22 91 

51 

-9382 

1810 

46 

+ 1978 


1700 

* 

2100 

♦ 4428 

67*4 

51 

-5606 

*3*0 

*6 

+ 9129 


2100 

- 

2600 

♦ 4*61 

66*3 

51 

-3393 

99*6 

*6 

+**22 


2600 

~ 

3200 

+ **8* 

6128 

51 

-2289 

10*2 

*6 

+ 2381 


3200 

- 

3800 

♦*500 

7379 

51 

-1781 

1508 

46 

+ 1*97 


3800 

- 

*400 

♦*513 

7299 

51 

-1*39 

6338 

*6 

♦1005 . 


**oo 

- 

5000 

+4522 

59*9 

51 

-1319 

2912 

*6 

+ 79*1 

i 1 

5000 


6000 . 

♦4532 

7*90 

51 

-1122 

*1*2 

*6 

+ 5808 


Coefficients 


9997 *5 
1813 ** 
0443 43 
0382 43 
7438 43 
5314 43 
0474 43 
3410 42 
0497 43 
2588 43 
4142 43 
2568 43 
8172 43 


0045 46 
7536 46 
1415 45 
2657 44 
1106 45 
0610 44 
3854 44 
2930 44 
5316 43 
4345 43 
2079 43 

0490 45 
5823 45 
7425 45 
0522 45 
7076 44 
6630 44 
2970 43 
3777 43 
7346 43 
8228 43 
6037 43 
9120 42 
8556 42 


♦ 3832 
+2504 
♦5333 
♦1354 

♦ 8055 
♦1190 

♦ 9928 
+2879 
-3693 
-5693 
-5359 
-4063 
-2304 

-1691 

-79^0 

-2756 

-2901 

-3136 

-8357 

-3684 

-1567 

-7812 

-5311 

-3740 

♦ 2285 
-8061 
-3279 
-9680 
-2567 
-6167 
-2231 
-8479 
-3571 
-1797 
-9752 
-6609 
-3943 


8460 42 
6361 41 
3424 40 
8725 40 
6245 39 
5488 40 
4700 39 
3181 39 
6212 39 
7109 39 
6037 39 
3061 39 
4960 39 


9439 43 
7376 42 
8704 42 
7625 41 
4202 41 
2671 40 
0068 40 

2361 40 
3581 39 
4558 39 
3250 39 

0707 43 
9700 42 
9984 42 
7557 41 
8708 41 
2272 40 
4653 40 
8548 39 

2362 39 
2303 39 
0000 38 
4577 38 
1 B80 38 


♦ 1318 
♦1318 
♦1318 
+ 1318 
♦1318 

♦ 1318 

♦ 1318 
+ 1318 
+ 1319 
♦1319 
+ 1318 
+ 1317 

♦ 1315 

♦4619 

+4607 

♦4584 

♦ 4546 

♦ 4537 
+4507 
♦4491 
♦4474 
♦4460 
+4449 
+ 4436 


3612 56 
3951 56 
4070 56 
4156 56 
4123 56 
3969 36 
4349 56 
6460 56 
0115 56 
1045 36 
6229 36 
6142 56 
6607 56 

0744 55 
1927 55 
8409 55 
1211 55 
7132 55 
5530 55 
5653 55 
0549 55 
0657 35 
1831 55 
8642 55 


+ 1092 

♦ 1092 

♦ 1092 

♦ 1091 
♦1090 
+ 1089 
♦1089 

♦ 1088 
♦ 1088 
♦ 1088 
+ 1087 
+ 1087 
+ 1087 


3347 56 
5 B28 56 
0413 56 
2721 36 
4684 56 
6529 56 
1732 56 
7729 56 
4376 56 
1620 56 
8935 56 
6927 56 
4110 56 


150 
300 ■ 
500 ■ 
700 ■ 
1000 ■ 
1300 ■ 
1700 • 
2100 • 
2600 ■ 
3200 - 
3800 - 
4400 • 
5000 - 


300 

500 

700 

1000 

1300 

1700 

2100 

2600 

3200 

3800 

4400 

5000 

6000 


150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 
1300 - 1700 
1700 - 2100 
2100 - 2600 
2600 - 3200 
3200 - 3800 
3300 - 4400 
4400 - 5000 
5000 - 6000 


♦ 6383 
♦8534 

♦ 1008 
♦ 1120 

♦ 1195 
♦1248 

♦ 1268 

♦ 1279 

♦ 1286 

♦ 1290 

♦ 1292 
+ 1294 

♦ 1296 


4230 51 
3172 51 
7133 52 
9988 52 
6348 52 
4721 52 
0666 52 
3339 52 
1578 52 
2043 52 
8751 52 
5807 52 
2205 52 


-2183 

-7160 

-4760 

-2287 

-1043 

-3391 

-1729 

-8857 

-4860 

-3013 

-1886 

-1253 

-6496 


6856 49 
8000 48 
2740 48 
4085 48 
2162 48 
1184 47 
2303 47 
1920 46 
6790 46 
4232 46 
0004 46 
5153 46 
6420 45 


+ 2209 
♦6201 
♦2629 
+ 9077 
+ 2943 
♦7258 
+ 2873 
♦1192 
+ 5345 
+ 2724 
+ 1451 
+ 3422 
+ 3820 


0207 47 
5460 46 
9117 46 
1820 45 
6828 45 
7051 44 
9710 44 
527? 44 
6302 43 
8663 43 
7234 43 
0090 42 
8266 42 


-3765 

-7111 

-2170 

-5425 

-1282 

-2338 

-7327 

-2449 

-8955 

-3823 

-1740 

-8623 

-3347 


2673 44 
6167 43 
8108 43 
6390 42 
6918 42 
0965 41 
1794 40 
6562 40 
1435 39 
6766 39 
7449 39 
9152 30 
9564 30 


+4132 
+4098 
+4062 
+4022 
+3986 
+ 3945 
♦ 3926 
♦3912 
♦3902 
+ 3895 
+3889 
+ 3884 
+ 3879 


9670 55 
5503 55 
5210 55 
5045 55 
5351 55 
8748 55 
8367 55 
7677 55 
3779 55 
0427 55 
1827 55 
8198 55 
6914 55 


♦3640 

♦ 3498 

♦ 3597 

♦ 3810 

♦ 4040 

♦ 4225 
♦4334 
♦4411 
+ 4467 

♦ 4508 
♦4541 
♦4569 
♦4606 


0200 51 
5413 51 
7497 31 
1072 51 
2657 51 
0270 51 
2200 51 
7942 51 
8185 51 
2460 51 
0295 51 
6116 51 
1204 51 


+ 0085 
-4528 
-6040 
-6268 
-3805 
-2089 
-1335 
-8377 
-5022 
-4630 
-3813 
•3184 
■2076 


8640 47 
6370 47 
8130 47 
2490 47 
1238 47 
1357 47 
8403 47 
6910 46 
8670 46 
6640 46 
2379 46 
7846 46 
7807 46 


-1026 9011 46 
♦3399 6376 45 
+4156 7731 45 
♦2385 5288 45 
+1061 8631 45 
♦4374 3033 44 
+2161 7485 44 
+1084 3361 44 
♦6020 016? 43 
+3870 6023 43 
+2644 8087 43 
+1851 2604 43 


♦2438 

-1921 

-2824 

-1274 

-4275 

-1339 

-5212 

-2048 

-8903 

-4584 

-2522 

-1379 


150 

- 

300 

♦40*8 

5275 

51 

-2616 

5* 12 

*0 

+2155 

a 933 

*6 


300 

“ 

500 

♦*07* 

*857 

51 

-2*99 

6320 

*0 

+ 206* 

8571 

*6 

-1981 

500 

“ 

700 

+ 4692 

9175 

51 

-239* 

9638 

* 8 

+ 1263 

9*99 

*6 

-9151 

700 

“ 

1000 

♦ 5409 

6786 

51 

-1*08 

*350 

*8 

+ 53*8 

7*13 

*5 


1000 


1300 

♦6025 

9535 

51 

-750* 

65*0 

*7 

+ 2030 

6869 

*5 


1300 

“ 

1700 

♦ 6398 

7799 

51 

-3929 

7130 

*7 

+ 8 155 

202 1 

** 


1700 

- 

2100 

♦ 6642 

605* 

51 

-222* 

219B 

*7 

+ 3543 

7*9* 

** 

-8257 

2100 

~ 

2600 

+6780 

3007 

51 

-1372 

2122 

47 

+ 1756 

5186 

** 

-3252 

2600 


3200 

+ 6891 

2*52 

51 

-92*3 

3170 

46 

+ 9*93 

*160 

*3 


3200 

“ 

38001 

♦6967 

101* 

51 

-6796 

6*80 

46 

+5630 

0065 

*3 

-6591 

3800 

“ 

4*00 

+ 7021 

0652 

51 

-5*66 

6732 

46 

+ 3777 

393 1 

*3 

-3621 


- 

5000 

+ 7050 

0**9 

51 

-4920 

3790 

46 

+ 2933 

2725 

*3 


5000 

“ 

6000 

♦ 7097 

4*38 

51 

-4178 

3006 

*6 

+214B 

5733 

*3 

-1461 

150 

- 

300 

♦ 4415 

90*6 

51 

-1079 

2001 

*9 

+ 1028 

9803 

47 

-1547 

300 


500 

♦ 6995 

*769 

51 

+ 6890 

28*0 

*8 

-606* 

6113 

*6 


500 


700 

-1340 

4500 

50 

-2596 

2896 

*9 

+ 1511 

2585 

47 

-1367 

700 


1000 

♦ 6*12 

2822 

51 

-5167 

3100 

*8 

+2151 

12*5 

*6 


1000 

- 

1300 

♦ 7725 

6912 

51 

-2967 

7290 

*8 

♦8838 

*890 

45 


1300 


1700 

+ 9068 

6613 

51 

-1109 

7017 

48 

♦2576 

9*57 

45 

-8070 

1700 


2100 

+ 9682 

7034 

51 

-6851 

0810 

47 

♦1229 

5950 

45 

-2863 

2100 

• 

2600 

+ 1013 

8660 

52 

-4*18 

*18* 

47 

+6387 

7821 

44 

-1094 

2600 


3200 

+ 10*7 

7649 

52 

-3606 

9383 

47 

+*132 

93*0 

44 

-5398 

3200 

“ 

3800 

+ 1076 

8682 

52 

-3381 

4*09 

47 

♦3076 

1615 

44 

-3205 

3800 


4*00 

+ 1102 

5318 

52 

-3277 

262* 

47 

+2*61 

8*12 

44 

-21?8 

4*00 


5000 

+ 1125 

0822 

52 

-3285 

3329 

47 

+ 2101 

1199 

44 

-1569 

5000 


6000 

♦ 1150 

6199 

52 

-3117 

8637 

47 

♦ 1722 

310* 

44 

-1082 

150 


300 

+4643 

8961 

51 

-1683 

7831 

*9 

+ 1601 

®*50 

47 

-2396 

1 300 


500 

+ 5623 

0578 

51 

-8719 

870* 

*0 

+ 7316 

1903 

46 

-7605 

500 

“ 

700 

+ 7960 

*636 

51 

-6242 

279* 

*8 

+3262 

8202 

*6 

-2359 

700 

“ 

1000 

♦9906 

5230 

51 

-3*3* 

1001 

*6 

♦ 1267 

580* 

46 

-6495 

1000 

“ 

1300 

♦ 1147 

9388 

52 

-1015 

3256 

*8 

+46*1 

2069 

45 

-1652 

1300 

~ 

1700 

♦ 1233 

7867 

52 

-1 186 

3523 

*8 

♦2313 

9*31 

45 

-6249 

1700 


2100 

♦ 1298 

65*2 

52 

-8631 

0*70 

47 

+ 1280 

2308 

45 

-2607 

2100 

“ 

2600 

+ 1342 

9*88 

52 

-70*9 

5815 

47 

+ 8*01 

*5*8 

44 

-1348 

2600 


3200 

♦ 1383 

6*80 

52 

-6127 

0088 

47 

+5871 

1932 

44 

-7435 

3200 

" 

3800 

♦ 1421 

5792 

52 

-5686 

3751 

47 

+ 4*35 

9055 

44 

-4538 

3800 

“ 

4*00 

+ 1455 

3027 

52 

-5*38 

3782 

47 

♦ 3578 

352* 

44 

-3067 1 

4*00 


5000 

+ 1*85 

3135 

52 

-5353 

0332 

47 

+ 305* 

* 90 3 

44 

-2273 ' 

5000 


6000 

♦ 1520 

3*18 

52 

-5012 

9280 

47 

♦ 2*90 

t 609 

44 

-1562 


4900 43 
1962 42 
2658 42 
7B25 42 
8782 41 
8215 41 
2758 40 
7978 40 
5200 39 
6109 39 
3761 39 
0052 39 
8774 38 


+ 1 ‘i 5 0 6733 56 
♦1940 + 7?9 56 
-lMsO 7<. 1 5 56 
♦1949 9168 66 
+1748 6363 66 
+1947 2978 66 
+ 1946 ?6 7? 56 
+1545 3270 56 


F 

♦*598 

3693 

51 

+*69* 

0319 

51 

♦*722 

3131 

51 

♦*737 

198* 

51 

♦ *737 

2*93 

51 

♦*726 

71*9 

51 

♦ 4749 

6818 

51 

♦ *852 

5918 

51 

+*990 

69*8 

51 

♦*983 

7555 

51 

+*783 

1816 

51 

♦ 4*55 

1751 

51 

+3935 

3511 

51 

-2545 

1750 

51 

-5175 

2399 

51 

-8591 

5*30 

51 

-1287 

22*6 

52 

-1361 

1939 

52 

-1573 

1714 

52 

-1667 

5373 

52 

-1753 

4691 

52 

-1814 

4793 

52 

-1856 

9802 

52 

-1099 

119* 

52 

♦ 5349 

2058 

51 

+6074 

2136 

51 

♦480* 

6075 

51 

♦3666 

0743 

51 

♦2678 

11*0 

51 

♦ 1956 

5236 

51 

♦1606 

6*87 

51 

♦1368 

9058 

51 

♦ 1199 

9*62 

51 

♦1079 

*239 

51 

♦ 9798 

5780 

50 

♦9117 

3280 

50 

♦ 8309 

58*9 

50 

-2005 

0830 

51 

-11*2 

3036 

52 

-1986 

7563 

52 

-2659 

6737 

52 

-3131 

0836 

52 

-3490 

87*8 

52 

-3627 

0096 

52 

-3709 

6952 

52 

-3760 

5577 

52 

-3791 

3780 

52 

-3812 

29*2 

52 

-3825 

92*3 

52 

-3839 

*390 

52 

+4867 

6076 

51 

+ 5674 

67?1 

51 

♦ 5176 

7255 

51 

+ 3918 

2736 

51 

+241* 

2551 

51 

♦1226 

0050 

51 ! 

♦4713 

0170 

50 

-8671 

9950 

*9 


- 1 9 


56 


+ 1943 0 ? 1 5 56 
+1943 1526 56 
+ 194 ? 4605 56 
+1541 304 ? 56 


-4985 2010 50 
-8000 6070 50 
-1050 5867 51 
-1273 6745 51 
-1586 8660 51 


6114 43 
19B3 43 
9648 42 
5180 42 
0809 41 
9736 41 
7665 40 
3470 40 
0756 40 
8731 39 
0579 39 
8941 39 
5182 39 


+6584 
+6584 
+6568 
+6539 
+6504 
♦ 6475 
+6450 
♦6432 
♦6416 
♦6402 
+ 6390 
+6382 
+6370 


7865 55 
1442 55 
6792 55 
7513 55 
7319 55 
5249 55 
9950 55 
4476 55 
6267 55 
7074 55 
9978 55 
1426 55 
9039 55 


+ 5B29 
+ 5680 
♦ 2347 
-1979 
-5917 
-8433 
-1013 
-1119 
-1195 
-1252 

-1294 

-1322 

-1354 


4252 51 
2914 51 
8274 51 
9955 51 
2839 51 
7760 51 
7338 52 
1218 52 
3073 52 
6276 52 
2206 52 
8904 52 
3379 52 


4411 44 
4060 43 
1095 44 
2694 43 
9278 42 
0746 41 
4956 41 
2288 41 
9138 40 
5453 40 
3409 40 
0770 40 
7473 40 


♦3294 

♦ 3233 

♦ 3485 
♦3257 
♦3209 

♦ 3114 
♦3061 

♦ 3008 
+ 2961 
+2914 
+ 2865 
+ 2817 
+ 2750 


5442 55 
5181 55 
6118 55 
6653 55 
7765 55 
9770 55 
1725 55 
1267 55 
3360 55 
5240 55 
7705 55 
3513 55 
5776 55 


♦6322 

-8614 

♦3544 

-4378 

-1236 

-2139 

-2559 

-2883 

-3127 

-3339 

-3530 

-3699 

-3998 


6310 51 
0409 51 
3864 52 
9560 51 
8123 52 
6277 52 
1310 52 
36B9 52 
2861 52 
40*5 52 
0856 52 
8762 52 
6721 52 


9562 *4 
1763 43 
3972 43 
1661 42 

2082 42 
2947 41 
4621 41 
7181 41 
7727 40 
3719 40 
9795 40 
9993 40 

2083 40 


-1014 

-1222 

-1831 

-2626 

-3541 

-*218 

-4855 

-5387 

-5966 

-6598 

-7256 

-7916 

-8854 


S A11 substances In gaseous phase except graphite. 


948* 34 

0906 54 
2412 5* 
6184 54 
4110 54 
0861 54 
4757 5* 
8368 54 
7885 54 
0089 54 
5240 34 
3830 3* 
9760 34 


♦ 5178 
-3985 
-1328 
-2506 
-1514 
-4090 
-4538 
-48 31 
-5143 
-5424 
-3676 
-5904 
-6178 


0680 51 
7300 50 
2457 52 
3601 52 
4361 52 
3195 52 
0310 52 
9210 52 
8668 32 
2675 52 
6*39 52 
0139 52 
3165 52 
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TABLE 1. - Continued. COEFFICIENTS FOR OBTAINING THERMODYNAMIC Di TA FOR SEVERAL SUBSTANCES 
Coefficients for use in equations (10S) to (:07)J 


Temperature 

interval. 


150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 
1300 - 1700 
1700 - 2100 
2100 - 2600 
2600 - 3200 
3200 - 3800 
3800 - *+00 
4*00 - 5000 
5000 - 6000 

150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 
1300 - 1700 
1700 - 2100 
2100 - 2600 
2600 - 3200 
3200 - 3800 
3800 - ++00 
4400 - 5000 
5000 - 6000 


♦3?12 7827 51 44636 0810 46 -5376 9030 44 +1166 7347 42 
+3518 9332 51 +8459 4710 46 -9090 7610 4+ +1731 4444 42 


+4465 9529 51 -2009 4469 47 
+4632 7107 51 -9757 7450 46 
♦4698 1775 51 -7731 9680 +6 
♦4702 1190 51 -1030 5653 47 


+4683 7437 51 -1461 5449 47 *9345 1350 43 

+4705 6474 51 -1610 6331 47 +9697 4750 +3 

+4041 7634 51 *+2256 4400 47 -6630 3440 45 

♦3771 6119 51 -1914 0720 48 +1386 0780 46 


+2655 2706 44 -32*4 *286 40 
♦9834 3740 43 -13*2 +602 +0 
+5967 10+7 +3 -531* 9447 39 
♦7078 *357 43 -6330 3692 39 
♦93+3 2350 *3 “4234 >543 34 
♦9697 4730 +3 -4522 5104 39 


+9999 5267 31 -1131 429+ +8 
♦1082 7726 52 -71*7 +950 47 
♦1139 5575 52 -4744 1100 +7 
♦1178 8522 52 -3183 3398 47 
♦1205 5418 52 -2229 3658 +7 


300 - 500 ♦ 

500 - 700 ♦ 

700 - 1000 ♦ 

1000 - 1300 ♦ 

1300 - 1700 ♦ 

1700 - 2100 + 

2100 - 2600 ♦ 

2600 - 3200 * 

3200 - 3800 ♦ 

3800 - **00 < 

+400 - 5000 * 

5000 - 6000 

150 - 300 I i 

300 - 500 \ < 

500 - 700 j < 

700 - 1000 
1000 - 1300 
1300 - 1700 
1700 - 2100 
2100 - 2600 1 
2600 - 3200 
3200 - 3800 
3800 - 4400 
4400 “ 5000 
5000 - 6000 

150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 
1300 - 1700 ! 
1700 - 2100 | 

2100 - 2600 ' 
I 2600 - 3200 
3200 - 3800 
3800 - ++00 
4400 “ 5000 
5000 ~ 60 00 

150 - 300 

300 - 500 

500 - 700 

| 700 - 1000 

1000 - 1300 
| 1300 - 1700 
[ 1700 - 2100 
2100 - 2600 
2600 " 3200 
3200 - 3800 
3800 “ ++00 
4400 * 5000 
5000 - 6000 

150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 j 
1300 - 1700 
1700 - 2100 
2100 - 2600 
2600 - 3200 
3200 - 3800 l 
3800 - +400 
4400 - 5000 
300 0 ~ 6000 

150 - 300 

300 - 500 

500 - 700 

700 - 1000 
1000 - 1300 
1300 - 1700 
1700 - 2100 
2100 - 2600 
2600 - 3200 
3200 - 3800 
3800 - +400 
4400 - 5000 
5000 - 6000 


♦3501 +8+2 51 +1087 8922 +6 -2132 65+7 44 
♦3504 8282 51 +5717 3880 46 -7717 9140 44 
♦3457 2625 51 -2833 6849 47 +1252 0307 43 
+3478 1473 51 -5369 0403 47 +1958 1791 43 


+1522 5193 45 -3042 6340 41 


+2393 0379 44 -2833 +861 40 
+1456 2434 *4 -1310 *845 +0 
+7039 3966 43 -6132 7844 39 


+7176 7187 41 
♦1440 7969 *2 


♦3651 5834 51 -5144 0902 47 +1380 4070 43 
♦3860 6374 51 -3546 9532 47 +7404 9426 44 
+4040 9776 51 -2413 3244 47 +3930 0638 44 
+4182 5494 51 -1491 5448 47 +1963 B756 6+ 
+4288 4419 51 -9428 1210 46 +1001 4612 44 
♦4364 4008 31 -6326 1270 +6 +5453 3767 43 
♦4+19 2221 51 -+399 2938 46 +3153 4215 *3 
♦4455 6250 51 -3418 0326 46 +2087 5301 *3 


► 1958 1791 43 -9091 0461 41 

+ 1380 4070 45 -52T2 t>366 +1 

♦ 7404 9426 44 -2247 ‘>935 41 


♦ 1344 

6438 

36 

♦ 1985 

4362 

31 

+ 1344 

6317 

36 

♦ 1930 

32*3 

31 

♦1344 

74*4 

56 

+2140 

1459 

51 

♦ 1343 

2302 

36 

♦ 2759 

7067 

31 

♦ 1344 

7347 

36 

♦ 2069 

0007 

51 

♦ 1342 

4710 

36 

+ 15*4 

3000 

49 

♦ 1339 

0392 

36 

-2447 

1172 

31 

+ 1335 

3954 

36 

-4436 

8745 

31 

+ 1333 

0433 

36 

-5083 

3*08 

31 

♦ 1332 

Oil* 

36 

-6167 

12*9 

31 

♦ 1332 

1200 

56 

-6139 

8*1* 

51 

♦ 1333 

4036 

36 

-5958 

3343 

31 

+ 1333 

1471 

36 

-6102 

771* 

51 

♦ 1060 

6422 

36 

-6347 

7250 

50 

♦ 1061 

2254 

36 

♦ 9064 

3870 

50 

+1060 

3115 

36 

-8222 

*700 

50 

♦ 1057 

*295 

36 

-5511 

1720 

31 

♦ 1051 

0805 

56 

-1331 

2328 

32 

+ 1040 

8233 

56 

-2280 

06*2 

32 

♦ 1020 

9329 

56 

-3153 

3*15 

52 

♦ 1013 

9947 

36 

-3915 

9002 

52 

+1003 

3130 

56 

-4530 

1437 

52 

♦ 9932 

4942 

35 

-4961 

4187 

32 

+9846 

8258 

55 

-3 268 

2406 

32 

+9779 

0774 

55 

-5481 

0163 

52 

+9693 

2767 

35 

-5702 

5329 

52 

♦ 3306 

4242 

53 

♦3809 

0776 

1 

+3308 

3690 

55 

+ 3790 

2032 

31 

+3310 

1729 

55 

♦4099 

1393 

51 

+3310 

1638 

55 

♦4029 

9306 


+3301 

4098 

55 

♦ 2971 

0270 

31 

+3283 

9734 

55 

♦ 1382 

1786 

31 ! 

+ 3269 

0418 

53 

♦ 3411 

6830 

30 

♦ 3231 

7337 

' 35 

-6791 

3710 

2? 


1001 4612 44 -1393 1818 40 

5433 3767 43 -702T 3322 39 


♦3235 9292 55 -1463 2026 51 

+3222 2132 55 -2039 2716 51 


♦4489 0699 51 -2554 6512 +6 


♦3563 7140 51 -4925 8570 48 

♦3816 8846 51 -2963 9146 4« 


3153 4215 43 -3308 2674 39 +3210 1502 35 -2466 3384 51 
2087 5301 43 -1819 9816 39 +3200 9544 35 -2751 9920 31 
1323 6630 43 -9051 5936 30 +3190 9734 55 -3024 6320 51 


+4540 0397 46 -6280 3430 43 *5747 4400 51 +5400 7202 51 

♦2+90 7914 46 -2567 1204 43 -4925 1570 52 +393* 0791 31 

-- 1901 0823 35 +629* 7070 30 


♦44+2 4313 31 
♦5077 4390 51 


-2696 4*02 +8 
-1862 6330 48 


+1430 5622 46 -1034 0091 43 -1901 0823 33 +6296 7070 5U 
+7097 *891 43 -3796 5406 *2 -4195 9603 33 -3119 0923 51 


♦3616 2314 51 -14*6 *518 48 
♦6233 4300 51 -7697 8330 *7 
♦6653 7149 51 -4526 7290 +7 
♦6946 1749 31 -2588 8846 47 


♦7139 6*91 51 -16*3 2337 *7 +1725 5138 4* 

♦7296 9835 51 -1012 4495 47 +849* *890 43 

♦7353 3713 31 -9492 3200 46 +6828 6345 43 

♦7412 7505 51 -8253 2950 46 +311T 7600 43 -4618 

♦7671 5782 51 +9909 4290 46 -6372 2870 43 

+4131 1379 51 -8226 1920 48 +7478 2778 46 

+4500 6690 31 -3432 1224 48 +4581 6837 *6 

+5678 2507 51 -4772 8328 *8 +2362 2417 46 

♦6831 6009 51 -2985 8582 48 +1156 0805 46 

♦7879 7798 51 -1693 2846 *8 +468* 2722 45 

♦8678 *190 51 -7904 5080 47 +1673 8397 43 

♦9108 8118 51 -*627 0080 *7 +7630 845* 4+ 


+3992 8769 43 -1*66 9220 *2 
♦1624 9078 43 -3067 2173 *1 
♦7339 4847 6* -1790 7679 41 
♦3382.8632 44 -6523 3*48 40 


-6*90 3300 33 -6421 4910 31 
-1123- 1388 34 -1030 0477 32 
-1524 1600 34 -1347 7832 52 
-1891 3354 34 -1339 6391 52 


1725 9138 4* -2690 3603 40 -2105 9376 34 -1703 0668 52 
8494 4890 43 -1007 5543 40 -2485 6878 34 -1823 3039 92 
*.*:>* *.444 43 -7193 5879 39 -2598 7416 3* -1867 0777 52 


-2726 6119 34 -1911 41*4 32 


7823 3668 39 -4364 6730 36 -2298 748* 52 


♦9396 9763 51 -2546 8965 47 
+9587 4023 51 -1454 6465 *7 
+9704 56*6 51 -9199 5550 46 
♦9781 4824 51 -5987 9330 46 
♦9832 8204 51 -4061 2490 46 


-2546 8965 47 +>401 2225 44 
-1454 6465 47 +1576 5317 44 
-9199 5550 46 +8210 7660 *3 
-5987 9330 46 +4538 2056 43 


♦2499 7171 51 -5624 1480 47 +4632 7803 45 

+2506 *788 51 -5929 6*16 47 +5200 7614 43 

♦2656 4730 51 -2859 9690 47 +1686 3535 43 

♦2743 3927 51 +6972 4300 43 +329* 7080 43 

♦2741 6558 51 +9775 660* *6 -2503 7621 44 

♦2710 *271 51 +9894 5320 46 -2052 233+ ++ 

♦2662 2371 31 +72+5 6250 +6 -1178 833+ ++ 

+2620 *236 51 +*588 0250 +6 -606+ 0807 43 

+2587 6175 51 +2858 290+ +6 -3068 8116 +3 

♦2565 1+67 51 +1900 +820 +6 -1679 7850 +3 

♦2549 *787 51 +1280 0393 +6 -9597 3+50 42 

♦2539 0046 51 +9115 8020 45 -39*1 3944 42 

i +2328 1946 51 +5179 8*50 *3 -2909 6740 42 


♦2528 1946 51 

+3448 0294 51 
♦3835 3499 51 


♦4269 0209 51 -3765 4088 47 +1485 0640 43 
♦4398 1534 51 -1874 4198 *7 +5195 +893 *4 
♦4478 1904 51 -7895 *060 4* +1610 3313 44 
♦4529 1124 31 -4114 915* *0 +3733 0589 43 
+4610 0199 51 +3*4* 6630 46 -7130 3870 43 
♦4760 6830 51 +1734 0760 47 -2492 1302 44 
♦4874 2401 51 +2677 9490 47 -3503 0664 44 
♦4T07 9090 51 *1249 2260 47 -2466 4155 44 
♦ 3900 2910 51 -4688 6050 4T M508 8737 4* 


-9970 

6473 

43 

♦ ?4r>l 

0874 54 

♦ 7649 

3*12 

91 

-4789 

2337 

43 

.■2320 

2046 54 

+ 3535 

4142 

31 

-1935 

9689 

43 

+ 20*7 

8396 54 

-7674 

1900 

50 

-6481 

0941 

42 

+ 1625 

3541 54 

-7624 

2190 

31 

-1945 

3137 

42 

+ 1089 

12 10 54 

-1423 

101? 

32 

-3273 

3114 

*1 

+ 4801 

6047 53 

-19*2 

5*95 

32 

-1926 

0389 

41 

♦ 6748 

8280 52 

-22*1 

6387 

52 

-6947 

7232 

40 

— ? 8 9 ? 

8132 53 

-2470 

3039 

32 

-2628 

8817 

40 

-5779 

4660 53 

-2612 

2673 

32 

-1147 

7943 

40 

-7897 

2630 53 

-2701 

4363 

32 

-3439 

1930 

39 

-9569 

4820 53 

-27*1 

5713 

32 

-2799 

4332 

39 

-1087 

2569 54 

-2802 

9647 

52 

-1082 

8883 

39 

-1244 

9725 54 

-2844 

2347 

32 

-441S 

2433 

42 

♦ 1633 

2049 33 

+ 3612 

3486 

51 

-622? 

5033 

42 

♦ 1632 

9938 33 

♦3373 

6263 

91 1 

-1622 

5100 

42 

♦ 1629 

1113 35 

+ 4733 

7792 

31 

-lilt 

0739 

41 

♦ 1625 

6651 33 

♦4193 

*441 

51 

♦824t 

6397 

40 

+ 1625 

9067 55 

♦4191 

7610 

31 

♦612* 

6430 

40 

+ 1628 

0747 33 

♦4391 

3167 

31 

♦ 288* 

4541 

40 

+ 1632 

5370 53 

♦4721 

8621 

51 ! 

♦I2i; 

7404 

40 

+ 163T 

4549 35 

♦ 3022 

9170 

51 

♦ 303; 

442 3 

39 

+ 1642 

5683 59 

♦ 32** 

1807 

31 

+231; 

8300 

39 

+1646 

6403 55 

♦ 543* 

7772 

31 

♦ 113 

1857 

39 

+1650 

0329 33 

+ 5559 

0897 

31 j 

♦613 

6169 

36 

+ 1652 

6975 33 

♦ 5642 

4806 

31 

♦ 253 

4032 

38 

+ 1656 

0533 33 

♦ 5731 

4370 

31 

-478 

3249 

43 

+3934 

6332 34 

♦ 6890 

4000 

51 1 

-119 

1520 

43 

+ 3673 

9263 34 

♦4963 

9378 

51 

-351 

7128 

42 

♦ 3815 

0122 54 

+3572 

8781 

51 

-873 = 

1239 

41 

+3732 

5719 54 

♦ 2509 

1450 

31 

-213 : 

2894 

*1 

♦ 3696 

4374 54 

♦ 1760 

9090 

31 

-433- 

1719 

40 

+362# 

3890 34 

+ 1192 

1260 

31 


3733 0589 43 -790 0876 39 
7130 3870 43 +273. 3030 40 
2492 1302 44 +668'. *165 40 
3503 06*4 44 +037' 2934 40 
2466 4155 44 +714 8116 40 
•1500 8757 4* ♦212! 207* 40 


+3578 52*8 54 *7973 3330 50 
♦3467 1376 34 +1942 1632 50 
+3199 1333 34 -9806 3383 30 
♦2961 0183 34 "1888 1367 51 


♦3476 8067 34 
♦0193 9315 34 
+1399 0920 33 


-4600 9460 30 
♦6505 1700 51 
♦2441 3074 32 


+18*7 51 QQ 51 -1749 7481 48 +9091 4226 44 -627 t 1116 40 + 1399 8 9 20 33 +2441 3074_52_ 

♦3451 8575 51 -6195 0380 47 +8977 4934 45 -7666 4753 +2 +1049 7334 53 +6304 2088 51 
+3579 0533 51 -1315 6216 48 +1125 5565 46 -1238 9078 43 +1047 9373 55 + 5807 3032 51 
♦3873 6488 31 -9742 9350 47 +5316 9799 43 -42*9 9844 42 +1040 8878 55 +4196 6080 51 

IS” a" M -5105 It .Ml 45 -115 5 .521 .2 .1052 10.1 55 .27.1 092. 5 

*7*4 at >2591 5310 47 +7178 9728 44 -2919 9947 41 +1023 4995 53 +16*7 1854 31 
♦4412 8578 51 -1117 0049 47 *2318 1580 44 -6BH 6327 40 +1014 0*47 33 +8273 7321 30 
♦4477 2114 31 -*520 2*93 4* + 1001 7884 44 -20*9 8533 40 +1007 883# 55 *3807 3405 50 
+4)47 14*1 31 -7413 5100 45 -3651 *910 42 +91+1 7438 39 +9986 *354 34 '*13*0 3011 30 


♦4347 14*1 51 -7413 3100 45 

♦4*45 *833 31 +7474 13*0 4* 


3651 *910 42 +91+1 7438 39 +9986 *554 34 -13+u 

11*1 927* 44 +3319 7793 40 +9817 5*74 34 -8938 7220 50 

1631 2277 44 +42*»4 1388 40 +9707 0473 54 -1340 0407 51 

mu 483 * 44 ♦94l»7 4400 40 +9905 3475 34 - 5*8* T590 50 


♦4702 7409 51 +1144 8060 47 -1631 2777 44 +42*’4 1388 40 +9707 0473 54 -1340 0407 51 

+4616 7451 51 +2967 7300 46 -1034 9624 44 +341.7 4400 40 +9985 3475 34 ”5M* T**® J® 

♦4293 1670 31 -2330 0980 47 +6033 7890 43 +1303 7477 40 +1111 2799 33 +22J7 TJJ® 

♦3523 3574 51 -7547 9324 47 +3686 1299 44 -2000 6130 40 *1412 3199 33 +9021 9330 31 


4 All substances in gaseous phase except graphite. 
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TABLE I. - Continued. COEFFICIENTS FOR OBTAINING THERMODYNAMIC DATA FOR SEVERAL SUBSTANCES 
[Coeft'i c lentu Tor use In equations { 1 0 3 ) to ( 107 ).] 


r- 

i — 1 

i 

w 


;v-b- 

Tempera 

turn 








Cot 

Tridents. 









st aunt.- 

Inter 1 . 

al , 





































(a) 

°K 



A 



B 



C 



D 



E 



F 


C 1 F -/ 

150 - 

300 

+ 5127 

0429 

51 

-1749 

4520 

49 

+ 1761 

6464 

47 

-2976 

1208 

44 

+ 2B56 

0159 

55 

+ 4659 

5420 

51 


300 - 

500 

+6457 

5624 

51 

-5893 

7083 

48 

+ 5115 

6181 

46 

-5909 

3643 

43 

+ 2828 

1043 

55 

-2930 

9810 

51 


500 - 

700 

+ 7730 

3861 

51 

-3819 

8758 

48 

+ 2115 

3950 

46 

-1756 

7111 

43 

+ 2798 

664 3 

55 

-9857 

9920 

51 


700 - 

1000 

+ 8622 

9749 

51 

-1802 

3217 

48 

+ 7167 

0960 

45 

-4305 

6373 

42 

+ 2767 

0675 

55 

-1520 

7148 

52 


1000 - 

1300 

♦92 03 

6441 

51 

-8107 

5540 

47 

+ 2291 

6450 

45 

-1002 

421 B 

42 

♦2739 

3569 

55 

-1887 

3181 

52 


1300 - 

1700 

+ 9616 

4642 

51 

-2539 

0922 

47 

+ 5440 

6701 

44 

-1755 

2752 

41 

+ 2707 

5754 

55 

-2168 

5910 

52 


1700 - 

2100 

+ 9764 

0535 

51 

-1278 

0686 

47 

+ 2126 

0319 

44 

-542 2 

3408 

40 

+ 2693 

2176 

55 

-2? 71 

7800 

52 


2100 - 

2600 

+ 9847 

6403 

51 

-6517 

8960 

46 

+ 0787 

1110 

43 

-1805 

4192 

40 

+ 2682 

7742 

55 

-2332 

5352 

52 


2600 - 

3200 

+ 9897 

9694 

51 

-3586 

5496 

46 

+ 3936 

3035 

43 

-6597 

0677 

39 

+ 2675 

1109 

55 

-2370 

0484 

52 


3200 - 

3800 

+ 9927 

B 564 

51 

-2207 

83 6 5 

46 

+2001 

7247 

43 

-2809 

9884 

39 

+ 2669 

6912 

55 

-2392 

0132 

52 


3800 - 

4400 

+ 9946 

9377 

51 

-1412 

0292 

46 

+ 1092 

2948 

43 

-1315 

6062 

39 

♦2665 

5387 

55 

-2407 

7328 

52 


4400 - 

5000 

+ 9959 

2224 

51 

-9559 

0740 

45 

+ 6462 

9910 

42 

-6817 

9250 

38 

+ 2662 

4430 

55 

-2417 

5282 

52 


5000 - 

6000 

+ 9971 

6836 

51 

-4900 

9530 

45 

+ 2907 

6060 

42 

-2567 

3024 

38 

+ 2656 

5622 

55 

-2427 

7976 

52 

F 

300 ~ 

500 

+ 2774 

1677 

51 

+ 1569 

7918 

47 

-1219 

8418 

45 

+881 7 

6073 

41 

+ 2448 

1175 

55 

♦3274 

3817 

51 


500 - 

700 

+ 2741 

1306 

51 

+ 2447 

1894 

47 

-1290 

5400 

45 

+9364 

9496 

41 

+ 2448 

8816 

55 

+ 3442 

3010 

51 

700 - 

1000 

+ 2660 

2300 

51 

+ 1435 

7079 

47 

-5466 

0762 

44 

+ 2926 

9741 

41 

+ 2451 

8215 

55 

♦ 3882 

1075 

51 

; iooo - 

1300 

+ 2606 

1647 

51 

+ 7594 

5950 

46 

-2066 

6151 

44 

+8 244 

1470 

40 

+ 2455 

3341 

55 

♦ 4278 

5777 

51 

1300 ~ 

1700 

+ 2568 

8565 

51 

+ 3901 

3852 

46 

-8171 

2274 

43 

+ 2516 

1409 

40 

+ 2458 

2444 

55 

♦ 4530 

4593 

51 

, 1700 - 

2100 

+ 2543 

7180 

51 

+ 1989 

4083 

46 

-3203 

1108 

43 

+7669 

7618 

39 

♦2460 

7969 

55 

+ 4706 

8085 

51 

2100 - 

2600 

+2530 

2137 

51 

+ 1158 

2342 

46 

-1516 

1332 

43 

+2 9 T 9 

4828 

39 

+ 2462 

5383 

55 

♦ 4804 

8492 

51 

2600 - 

3200 

♦ 2520 

8123 

51 

+ 6763 

1070 

45 

-7187 

4217 

42 

+ 1160 

3995 

39 

+ 2464 

0181 

55 

♦ 4875 

0108 

51 

3200 - 

3800 

♦ 2514 

3282 

;i 

+ 3904 

6228 

45 

-3373 

8858 

42 

+4456 

9788 

38 

+ 2465 

2647 

55 

+ 4924 

7717 

91 

' 3600 - 

4400 

+2510 

0138 

51 

+ 2262 

4946 

45 

-1637 

1 748 

42 

+ 1810 

1580 

38 

+ 2466 

2929 

55 

+ 4958 

8 764 

51 

4400 - 

5000 

♦2507 

8249 

51 

+ 1625 

4622 

45 

-1023 

3196 

42 

+ 1001 

0333 

38 

+ 2466 

8878 

55 

+ 4976 

3975 

51 

Fa 

150 - 

300 

♦ 3474 

8 60 7 

51 

-2479 

3670 

47 

+ 2808 

0384 

45 

+4516 

8609 

42 

+ 3067 

9524 

55 

+ 4488 

2780 

51 

; 3oc - 

500 

+ 3499 

3010 

51 

-1230 

4361 

48 

+ 1038 

92 29 

46 

-1091 

0390 

43 

+ 3067 

9438 

55 

+ 4441 

2399 

5 1 j 


500 - 

700 

+ 3781 

3514 

51 

-1031 

1322 

48 

+ 5565 

7051 

45 

-4317 

1200 

42 

+ 3061 

1457 

55 

♦2916 

9669 

51 


700 - 

1000 

+ 4Q41 

7357 

51 

-5868 

2000 

47 

+2277 

7137 

45 

-1285 

7726 

42 

+ 3051 

4311 

55 

♦1359 

1435 

51 


1000 - 

1300 

+ 4247 

3596 

51 

-3180 

6992 

47 

+ 8 7 36 

8100 

44 

-3561 

1383 

41 

+ 3040 

9909 

55 

+ 6212 

3900 

49 


1300 - 

1700 

♦ 4395 

0680 

51 

-1548 

4066 

47 

+ 3194 

9833 

44 

-9363 

6692 

40 

+ 3029 

8390 

55 

-9330 

9680 

50 


1700 - 

2100 

+ 4473 

0713 

51 

-1083 

0146 

47 

+ 1705 

8185 

44 

-3801 

9221 

40 

+ 3022 

6281 

55 

-1468 

3319 

51 


2100 - 

2600 

+ 4530 

1221 

51 

-8004 

6210 

46 

+ 1001 

6324 

44 

-1705 

3955 

40 

+ 3015 

9621 

55 

-1873 

5356 

51 


2600 - 

3200 

+ 4577 

2369 

51 

-6669 

1418 

46 

+ 6657 

* 6 1 4 

43 

-8791 

4462 

39 

♦ 3009 

4373 

55 

-2213 

6134 

51 


3200 - 

3800 

♦ 4617 

9447 

51 

-6168 

3545 

46 

+ 499? 

1151 

43 

-5319 

2178 

39 

+ 3002 

9324 

55 

-2510 

8582 

51 


3B00 - 

4400 

+ 4654 

6023 

51 

-5845 

5975 

46 

+ 3970 

3472 

43 

-3521 

4000 

39 

+ 2995 

9930 

55 

-2784 

3785 

51 


4400 - 

5000 

+ 4686 

8046 

51 

-5734 

8144 

46 

+ 3364 

947? 

43 

-2580 

7455 

39 

+ 2989 

1276 

55 

-3027 

5170 

51 


5000 - 

6000 

+ 4726 

7301 

51 

-5239 

8070 

46 

+ 2658 

8548 

43 

-1685 

9673 

39 

+ 2978 

4168 

55 

-3341 

3*10 

51 

1 

H 

150 - 

300 

♦ 2500 

3116 

51 

+ 4852 

8250 

45 

-6211 

4920 

43 

+ 1415 

8863 

41 

+ 4294 

5264 

55 

-4609 

6828 

50 


300 - 

500 

♦ 2499 

6710 

51 

-2385 

2015 

45 

+ 2047 

2396 

43 

-2955 

4273 

40 

♦ 4294 

5386 

55 

-4573 

1922 

50 


500 - 

700 

+ 2499 

0717 

51 

-3432 

3430 

45 

+ 1896 

0083 

43 

-1754 

6524 

40 

+ 4294 

5692 

55 

-4533 

8129 

50 


700 - 

1000 

♦ 2499 

5465 

51 

-1261 

8040 

45 

+ 4772 

2317 

42 

-3092 

1566 

39 

+ 4294 

5582 

55 

-4561 

8786 

50 


1000 - 

1300 

+ 2498 

9933 

51 

-2095 

0920 

45 

+ 6015 

1654 

42 

-2948 

5802 

39 

+ 4294 

6101 

55 

-4522 

0179 

50 


1300 - 

1700 

♦ 2499 

9803 

51 

-1 102 

0773 

44 

+ 6488 

9065 

40 

+4 834 

1707 

36 

+ 4294 

5389 

55 

-4589 

9392 

50 


1700 - 

2100 

+ 2499 

2764 

51 

-1021 

2900 

45 

+ 174? 

6965 

42 

-5235 

9488 

38 

+ 4294 

6258 

55 

-4537 

6904 

50 


2100 - 

2600 

+ 2499 

9862 

51 

-4814 

9770 

43 

+ 285? 

3330 

39 

♦ 7596 

2533 

36 

♦ 4294 

5410 

55 

-4590 

4575 

50 


2600 - 

3200 

+ 2500 

3308 

51 

+ 1682 

7689 

44 

-2310 

5728 

41 

+ 4594 

2 012 

37 

+4294 

4715 

55 

-4617 

5197 

50 

: 3200 - 

3800 

♦ 2500 

2231 

5 1 

+ 6871 

4240 

43 

-8940 

1590 

40 

+ 1468 

3878 

37 

+ 4294 

4842 

55 

-4609 

4814 

50 

3600 - 

4400 

♦ 2499 

6156 

51 

-2770 

3100 

44 

+ 2094 

2038 

41 

-2893 

9034 

37 

+ 4294 

6455 

55 

-4559 

8696 

50 


4400 - 

5000 

♦ 2498 

9665 

51 

-5593 

0080 

44 

+ 3785 

6331 

41 

-4517 

9884 

37 

+ 4294 

8763 

55 

-4504 

7409 

50 

"2 

150 - 

300 

♦2989 

2484 

51 

-4103 

4770 

46 

+ 4407 

7218 

46 

—8 356 

1287 

43 

+ 3401 

1138 

55 

-1324 

4021 

51 


300 - 

500 

♦ 3383 

2407 

51 

-4324 

5294 

47 

+ 3912 

7728 

45 

-5061 

2747 

42 

+ 3393 

0261 

55 

-3572 

0562 

51 


500 - 

700 

♦ 3459 

0074 

51 

-1656 

0656 

47 

+ 9153 

4690 

44 

-7399 

4236 

41 

+ 3391 

6394 

55 

-3981 

7170 

51 


700 - 

1000 

; +3480 

7949 

51 

-8057 

9160 

46 

+ 2316 

568? 

44 

-2880 

5124 

38 

+ 3391 

4081 

55 

-4101 

0320 

51 


iooo - 

1300 

+3471 

9964 

51 

-1811 

4833 

47 

+ 4046 

675? 

44 

-6393 

1054 

40 

+3393 

1405 

55 

-4004 

9763 

51 

1300 ~ 

1700 

+ 3478 

9902 

51 

-3159 

4629 

47 

+ 6167 

8657 

44 

-15(5 

2076 

41 

+ 3394 

2702 

55 

-3995 

7133 

51 , 

1700 - 

2100 

+ 3504 

4555 

51 

-3452 

5690 

47 

+ 5352 

7626 

44 

-1138 

9801 

41 

+ 3386 

2783 

55 

-4672 

5704 

51 

2100 - 

2600 

+ 3759 

4391 

51 

-2980 

8338 

47 

+ 3648 

3990 

44 

-6459 

7043 

40 

+ 3365 

5684 

55 

-5907 

5858 

51 


2600 - 

3200 

+ 3950 

4861 

.U 

-2214 

0298 

47 

+ 2252 

3788 

44 

-3163 

7688 

40 

+ 3337 

4923 

55 

-7304 

4520 

51 


3200 - 

3800 

+4015 

1762 

51 

-2473 

1652 

47 

+ 2122 

•*369 

*♦4 

-2701 

7443 

40 

+ 3332 

1516 

55 

-7727 

5210 

51 


3800 - 

4400 

+4253 

9189 

51 

-1542 

7069 

47 

+ 1065 

7981 

44 

-1000 

8309 

40 

+ 3278 

8324 

55 

-9597 

2790 

51 

| 

4400 - 

5000 

+4316 

8247 

51 

-1611 

9098 

47 

+ 9809 

8240 

43 

-8461 

6973 

39 

+ 3267 

4437 

55 

-1005 

6383 

52 


5000 - 

6000 

+4613 

8660 

51 

-6368 

8580 

46 

+ 2766 

2305 

43 

-6509 

3656 

38 

♦3166 

4849 

55 

-1251 

8853 

52 

HC1 

300 - 

500 

+ 3507 

7034 

51 

+ 3434 

8560 

46 

-3783 

9075 

44 

+ 7488 

3407 

41 

♦7840 

0952 

54 

+2478 

6303 

51 


500 - 

700 

+ 3496 

6325 

51 

-8772 

1500 

45 

-1483 

8166 

44 

+ 5505 

0572 

41 

+7844 

5758 

54 

♦2549 

0010 

51 


700 - 

1000 

1 +3455 

5431 

51 

-2524 

1094 

47 

+ 8256 

9265 

44 

-2240 

1276 

41 

+ 7868 

1516 

54 

+2838 

6335 

51 


1000 - 

1300 

+ 3497 

7739 

51 

-4336 

2524 

47 

+ 1120 

6186 

45 

-3799 

5512 

41 

+7B57 

2051 

54 

+2632 

6456 

51 


1300 - 

1700 

+ 3637 

7472 

51 

-4092 

2196 

47 

+ 8387 

1455 

44 

-241? 

5676 

41 

+7762 

0326 

54 

+ 1733 

9321 

51 


1700 " 

2100 

+ 3820 

5869 

51 

-3262 

2034 

47 

+ 5240 

1857 

44 

-1237 

0559 

41 

+7587 

5851 

54 

+ 4355 

1680 

50 


2100 - 

2600 

+ 4008 

0692 

51 

-2269 

0376 

47 

+ 2959 

'’010 

44 

-5696 

4676 

40 

+7371 

4782 

54 

-8489 

9400 

50 


2600 - 

3200 

+ 4163 

1444 

51 

-1552 

5681 

47 

+ 1637 

r 704 

44 

-2558 

9129 

40 

+ 7141 

4411 

54 

-1992 

0853 

51 


3200 - 

3800 

+ 4279 

2700 

51 

-1 136 

3225 

47 

+ 9795 

8780 

43 

-1262 

3444 

40 

♦ 6935 

9632 

54 

-2967 

0492 

51 


3000 " 

4400 

+4365 

4707 

:»1 

-6607 

3540 

46 

+ 6238 

6255 

43 

-6741 

6929 

.39 

+6753 

4656 

54 

-3533 

0504 

51 

4400 “ 

5000 

+4428 

6165 

51 

-6932 

3370 

46 

+4323 

4380 

43 

-3995 

4750 

39 

+ 6599 

9666 

54 

-4029 

0913 

51 

• 5000 - 

6000 

+ 4496 

5332 

51 

-4993 

7368 

46 

+ 2652 

7672 

43 

-1976 

9074 

39 

+6397 

5200 

54 

-4580 

2542 

51 

HF 

150 - 

300 

♦3502 

9862 

51 

-5341 

4090 

45 

+ 3907 

3861 

43 

-1722 

7617 

40 

*1026 

8292 

5? 

+ 9285 

0538 

50 

! 300 - 

500 

+ 3503 

7414 

51 

-7163 

1600 

44 

-5447 

6980 

42 

+ 5181 

9187 

40 

-1044 

2091 

52 

+9241 

9270 

50 


500 - 

700 

+ 3510 

6273 

51 

+3 178 

3340 

46 

-2370 

2806 

44 

♦ 3298 

9392 

41 

-1264 

3243 

52 

+ 8825 

1182 

50 


700 - 

1000 

+ 3497 

5136 

51 

-1303 

0660 

46 

-5305 

0300 

43 

+ 1983 

9089 

41 

-5429 

5120 

51 

+9703 

1135 

50 


1000 - 

1300 

: +3459 

5106 

51 

-2005 

0034 

47 

♦4630 

1579 

44 

-9300 

2525 

40 

+ 2673 

4630 

52 

♦ 1258 

5941 

51 

i 

1300 - 

1700 

+ 3477 

7106 

51 

-3196 

6027 

47 

+6293 

8357 

44 

-1587 

5290 

41 

+ 2887 

5590 

52 

♦1190 

5757 

51 


1700 - 

2100 

+ 3595 

2253 

51 

-3334 

3110 

47 

+ 5229 

6762 

44 

-1153 

0942 

41 

-6743 

7760 

52 

+4224 

9140 

50 


2100 - 

2600 

+ 3754 

7551 

51 

-2772 

2634 

47 

+ 3563 

5125 

44 

-6593 

9114 

40 

-2520 

7695 

53 

-7009 

1120 

50 

2600 - 

3200 

+ 3932 

3426 

51 

-2104 

1015 

47 

+ 2197 

0853 

44 

-3337 

2252 

40 

-5111 

5610 

53 

-1999 

9964 

51 

3200 - 

3800 

+ 4086 

7804 

51 

-1614 

8342 

47 

+ 1377 

0946 

44 

-1723 

8858 

40 

-7831 

6590 

53 

-3159 

4638 

51 

3800 - 

4400 

+ 4209 

3672 

51 

-1252 

4527 

47 

+ 8941 

3920 

43 

-9272 

9771 

39 

-1042 

4966 

54 

-4104 

5633 

51 

! 4400 - 

5C00 

♦ 4301 

3524 

51 

-1027 

8717 

47 

+ 6265 

6581 

43 

-5431 

6307 

39 

-1264 

8039 

54 

-4825 

1389 

51 

j 50C0 - 

6000 

+ 4402 

9214 

51 

-7489 

6732 

46 

+ 3816 

7579 

43 

-2461 

9992 

39 

-1564 

9097 

54 

-5647 

2957 

51 

| HjdO 

150 - 

300 

+40 1 2 

7997 

51 

+4448 

8300 

46 

-1104 

6208 

45 

+4440 

3590 

4? 

+ 5696 

5039 

54 

-1658 

1832 

50 

300 - 

500 

+ 3984 

3281 

51 

-1560 

3100 

47 

+ 9521 

9880 

44 

+ 9334 

5693 

41 

+ 570? 

9188 

54 

-3361 

4 200 

40 


500 - 

700 

♦ 3995 

7858 

51 

-5366 

254 B 

47 

+ 277? 

9813 

45 

-1277 

3920 

42 

+ 5705 

5261 

5* 

-7?48 

4000 

48 


700 - 

1000 

+4103 

25ei 

51 

-7272 

2748 

47 

+ 2513 

6379 

45 

-9332 

8919 

41 

+ 5673 

7398 

54 

-5886 

0940 

50 


1000 - 

1300 

+ 4273 

7895 

51 

-9457 

9644 

47 

+ 2418 

4150 

45 

-7900 

2882 

41 

+ 5608 

4188 

54 

-1548 

2509 

51 


1300 - 

1700 

+ 4561 

3587 

51 

-9361 

2130 

47 

+ 1693 

3359 

45 

-5227 

3842 

41 

♦ 54?0 

0843 

54 

-3374 

7881 

51 


1700 - 

2100 

+ 4985 

355 1 

M 

-6042 

8280 

47 

+ 1277 

9848 

45 

-2926 

8695 

41 

+ 5036 

1704 

54 

-6240 

3270 

51 


2100 - 

2600 

+ 54 19 

7067 

51 

-5975 

1330 

47 

♦ 7745 

•H37 

*4 

-1467 

6260 

41 

+ 451? 

4857 

54 

-9338 

2540 

51 


2600 - 

3200 

■ +5 838 

4391 

51 

-4173 

6144 

47 

+4396 

9203 

<.4 

-6843 

2077 

40 

+ 388? 

1430 

54 

-1242 

5644 

52 


3200 - 

2800 

i +6196 

9101 

51 

-2837 

1462 

47 

+ 2441 

1367 

44 

-3130 

1900 

40 

♦3213 

9760 


-1514 

Q891 

5? 


?eoo - 

4400 

+ 6449 

0690 

51 

-2024 

8 3 R 0 

47 

+ 147] 

0187 

44 

-1899 

5108 

40 

+ 2645 

3976 

54 

-1711 

7423 

52 

i 

4400 - 

5000 

| +6624 

7105 

51 

-1547 

noo? 

4 7 

+ 9747 

6790 

43 

-924? 

5186 

39 

+ 2187 

2059 

84 

-1851 

2177 

52 
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TABLE I. - Concluded. COEFFICIENTS FOR OBTAINING TE3EHMCD’ NAMIC DATA FOR SEVERAL SUBSTANCES 
[Coefficients for use in equations (lib) to (107).] 



300 

500 


! 

1000 

_ 

1300 

+3769 

9172 

51 

-4896 

0460 

47 

♦ 1322 

■*357 

45 

-5147 

2119 

41 

♦ 1169 

0270 

55 

+ 3837 

0127 

51 


1300 

_ 

1700 

+3976 

2131 

51 

-3140 

6382 

47 

♦6572 

2561 

44 

-2009 

1463 

41 

+ 1153 

6702 

55 

+ 2461 

7464 

51 

1700 

_ 

2100 

+4137 

1746 

51 

-2076 

7231 

47 

+ 3300 

3593 

44 

-8273 

2029 

40 

+ 1138 

5290 

55 

+ 1351 

2723 

5! 

2100 


2600 

+ 4259 

7731 

51 

-1265 

1294 

47 

+ 1656 

3960 

44 

-3226 

0166 

40 

+ 1123 

5766 

55 

+46T3 

8600 

50 


2600 


3200 

+ 4349 

058 7 

51 

-8120 

9610 

46 

+ 6518 

4400 

43 

-1311 

7501 

40 

+ 1110 

2937 

55 

-1928 

0800 

50 


3200 

_ 

3000 

+4413 

5660 

51 

-5677 

9250 

46 

+47B6 

5005 

43 

-5809 

5741 

39 

+ 1098 

7485 

55 

-6003 

6460 

50 


aaoo 

_ 

4400 

+ 4459 

+ 771 

51 

-4305 

6534 

46 

+2995 

3452 

43 

-2883 

0271 

39 

+ 1088 

9003 

55 

-1035 

1524 

91 


4400 

_ 

5000 

♦ 4489 

7869 

51 

-3762 

9949 

46 

*2235 

0024 

43 

-1791 

0895 

39 

+ 1081 

6691 

55 

-1270 

7127 

91 


5000 


5500 

+ 4509 

2546 

51 

-3739 

5470 

46 

+ 1972 

1171 

43 

-1430 

4410 

39 

♦ 1076 

9605 

55 

-1419 

8637 

51 

5500 

- 

6000 

+4525 

5565 

51 

-3723 

0352 

46 

+ 1802 

9307 

43 

-1226 

2702 

39 

+ 1072 

4569 

55 

-1546 

9048 

31 

0 

150 

_ 

300 

♦2832 

8173 

51 

♦ 1431 

7607 

48 

-1468 

4834 

46 

+ 2566 

9894 

43 

+ 3017 

4976 

55 

♦3217 

0845 

51 


300 

_ 

500 

+2714 

6413 

51 

+ 3870 

4329 

47 

-3379 

2646 

45 

+ 3969 

6103 

42 

+ 3019 

9635 

55 

+ 3891 

1039 

91 


500 


700 

♦ 2629 

9259 

51 

+22B6 

8597 

47 

-1271 

4552 

45 

+1065 

1442 

42 

+ 3021 

9345 

55 

+4354 

2996 

31 


700 

_ 

1000 

+2576 

2890 

51 

+ 1028 

0519 

47 

-4106 

0040 

44 

♦ 2484 

6390 

41 

+ 3023 

8309 

55 

+ 4676 

2053 

31 


1000 


1300 

+ 2547 

0979 

51 

+ 5221 

5330 

46 

-1496 

6858 

44 

♦6739 

3053 

40 

+ 3025 

1125 

55 

+ 4858 

4101 

51 


1300 

- 

1700 

+2519 

3465 

51 

+ 1151 

2610 

46 

-2514 

3283 

43 

+6031 

2904 

39 

+ 3027 

2774 

55 

+ 5048 

5417 

M | 

1700 


2100 

+ 2514 

1793 

51 

♦ 9680 

0900 

45 

-1678 

4195 

43 

+4800 

0132 

39 

♦ 3027 

7264 

55 

+ 5083 

3051 

51 f 


2100 

_ 

2600 

+ 2508 

6997 

51 

+ 6151 

5400 

45 

-9959 

5160 

42 

+ 2941 

9744 

39 

♦ 3028 

4518 

55 

♦5123 

3201 

51 


2600 


3200 

+ 2506 

0516 

51 

+ 6191 

4220 

45 

-1014 

7413 

43 

+ 3113 

4905 

39 

+ 3028 

8330 

55 

+ 5137 

3787 

51 


3200 

_ 

3800 

♦ 2496 

0645 

51 

-4316 

7660 

45 

-17B5 

1200 

41 

+ 1353 

7926 

39 

♦ 3031 

3904 

55 

+ 5226 

2535 

31 


3800 

_ 

4400 

+ 2484 

1660 

51 

-1028 

7300 

46 

+ 9952 

7176 

42 

-1281 

2973 

38 

+ 3035 

1914 

55 

♦ 5331 

3688 

51 


4400 

- 

5000 

♦ 2461 

6602 

51 

-3966 

3519 

46 

+2327 

9192 

43 

-1788 

5262 

39 

+3043 

5044 

55 

+5532 

3795 

51 

0 2 

130 

_ 

300 

+ 3307 

8622 

51 

♦7336 

8300 

46 

-1566 

0917 

45 

♦5367 

9823 

42 

♦1022 

7365 

54 

+4670 

38S4 

31 

300 

- 

300 

♦ 3468 

1122 

51 

-2094 

4310 

47 

+ 1311 

3020 

4! 

+41!2 

4133 

41 

+ 1031 

5694 

54 

+ 4905 

2651 

51 


500 


700 

+ 3491 

8904 

51 

-6759 

0190 

47 

♦ 3398 

6627 

4! 

-2087 

8706 

42 

+ 1030 

0629 

34 

+4833 

9511 

51 


700 

_ 

1000 

♦ 3655 

2327 

31 

-6543 

3148 

47 

♦ 2462 

0346 

4i 

-1270 

0679 

42 

+9684 

1794 

93 

♦ 3884 

7354 

51 


1000 

- 

1300 

+ 3904 

0901 

51 

-4442 

4076 

47 

♦ 1199 

2093 

4? 

-4661 

9082 

41 

+8345 

0760 

93 

♦2319 

0523 

51 


1300 

_ 

1700 

+4104 

9900 

51 

-2517 

0318 

47 

♦5093 

9020 

4‘ 

-1409 

3115 

41 

♦ 6635 

7755 

33 

+ 9729 

7660 

50 


1700 

_ 

2100 

+4222 

7020 

51 

-1953 

0831 

47 

+2975 

1070 

4< 

-5976 

9259 

40 

♦ 5794 

9642 

53 

♦ 1747 

6760 

50 


2100 

_ 

2600 

♦4302 

7917 

51 

-1791 

1603 

47 

♦ 2194 

9064 

4< 

-3493 

6626 

40 

+4957 

1490 

53 

-3765 

2230 

50 


2600 

_ 

3200 

+4370 

2138 

51 

-1859 

5901 

47 

+ 1868 

4516 

4* 

-2642 

8824 

40 

+4050 

9109 

53 

-8980 

5550 

50 


3200 

- 

38 00 

+4481 

6232 

51 

-1804 

0341 

47 

+ 1533 

7064 

4< 

-1904 

1376 

40 

+ 2395 

5642 

33 

-1649 

5016 

51 


3800 

_ 

4400 

♦ 4595 

4599 

51 

-1604 

0929 

47 

♦ 1175 

2869 

4' 

-1306 

8504 

40 

+6835 

3000 

51 

-2514 

2771 

51 


4400 

- 

5000 

♦ 4700 

9554 

51 

-1392 

3351 

47 

+9033 

6640 

4' 

-9220 

7268 

39 

-2507 

6420 

53 

-3338 

5270 

51 

OH 

130 


300 

+ 3764 

1804 

51 

+ 1330 

9369 

48 

-1397 

7859 

4 < 

♦ 2549 

9846 

43 

+ 2208 

60*1 

35 

♦ 6394 

1790 

50 


300 

_ 

500 

+ 3650 

7552 

51 

♦ 2767 

0068 

47 

-2437 

5563 

*' 

♦2946 

8393 

42 

+2210 

9337 

55 

♦1286 

3043 

51 


500 

_ 

700 

1 +3583 

7943 

51 

♦ 1516 

8258 

47 

-9296 

♦ 300 

4'* 

♦9667 

3264 

41 

+ 2212 

6553 

55 

♦1658 

9638 

51 


700 

_ 

1000 

+ 3516 

1720 

51 

-4302 

4030 

46 

♦4112 

6890 

4:t 

♦ 1744 

5983 

41 

♦ 2215 

8159 

55 

+ 2091 

0067 

51 

; 1000 

_ 

1300 

+ 3471 

4812 

51 

-2792 

0696 

47 

♦6819 

0371 

4*. 

-1854 

4121 

41 

♦ 2219 

7325 

55 

♦2435 

4839 

51 

1300 

_ 

1700 

+ 3526 

0017 

31 

-3607 

9397 

47 

♦7223 

5714 

4>* 

-1930 

9877 

41 

♦2217 

1231 

35 

♦2122 

0534 

51 

! 1700 

• 

2100 

♦ 3690 

5516 

51 

-3191 

5272 

47 

♦ 5009 

9631 

4'. 

-1107 

8002 

41 

+2202 

1973 

55 

+ 1012 

3464 

51 

! 2100 

- 

2600 

+ 3B38 

6762 

51 

-2495 

8340 

47 

+3 335 

8184 

4' ► 

-6301 

3695 

40 

+2184 

1527 

55 

-4676 

3000 

49 

1 ' 2600 

_ 

3200 

+ 4037 

244 1 

51 

-1797 

8853 

47 

+ 1877 

3664 

4 > 

-2853 

0364 

40 

+ 2155 

0371 

55 

-1497 

1187 

51 


3200 

- 

3800 

+4187 

6006 

51 

-1285 

3703 

47 

♦1095 

7568 

4 • 

-1369 

6166 

40 

♦ 2127 

1678 

55 

-2636 

9671 

51 

t 

3800 

- 

4400 

+4298 

3366 

51 

-9543 

3180 

46 

+6837 

4562 

4 ■ 

-7166 

3961 

39 

+ 2102 

5017 

55 

-3497 

0396 

51 

L .. 

4400 


5000 

♦ 4379 

1568 

51 

-7525 

5620 

46 

♦4 64 3 

9276 

4 - 

-4172 

0827 

39 

+ 20B1 

6369 

55 

-4 136 

5232 

51 


*A11 substances In gaseous phase except graphite. 
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TABLE II. - INPUT TO VECTOR 
AND PROPELLANT DECK* 


Product 

code 


Card column 

44-47 

48-50 

51-60 


BOP 


0037 

ATM 

H 

0054 

ATM 

N 

0061 

ATM 

0 

0450 

MOL 

H2 

0451 

MOL 

H201 

0650 

MOL 

N2 

0651 

MOL 

N101 

0750 

MOL 

02 

0751 

MOL 

01H1 


FI 

N2H4 


EF1 

1547029756 


PF1 

1000000053 


XI 

H202 


EX1 

2868162655 


PX1 

1000000053 


*The symbol 0 is used to 
indicate the alphabetic 
letter; the symbol 0 is 
used for zero. 
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TABLE III. - OUTPUT OF VECTOR AND PFOPELLANT DECK 


Type 
of card 


Packed 

vectors 


Product 

code 


Packed 

vector 


Pr oduct 
c ode 


Card column 


17-20 

31-40 

44-47 

0037 

0000000001 

003 7 

0054 

0000000011 

0054 

0061 

0000000021 

0061 

0450 

0000000002 

0450 

0451 

0000000221 

0451 

0650 

0000000012 

('650 

0651 

0000001121 

0651 

0750 

0000000022 

0750 

0751 

0000002101 

0751 


46-50 


51-60 


Cards for 
listing only 
to check 
input 


Type 
of card 


a f (hydrogen ) \ 
bf (nitrogen ) ) 

Fuel enthalpy, hf) 
Fuel valence, l 

a x (hydrogen)'! 
c x (oxygen) f 


Oxidant 

enthalpy 


Oxidant 

valence , 


Oxidant 

valence , 



N2H4 

1547029756 

1000000053 

H2^2 

2868162655 

1000000055 


Drum I 
loca- 
tion 

Content s 

Drum 

loca- 

tion 

Contents Drum 

loca- 
tion 

Cont ent s 



Cai 

•’d column 


1-4 

5-15 

16-19 

20-30 31-34 

35-45 

0587 

1248127850+ 

0588 

6 540639049+ 


0597 

4827226954+ 

0598 

1548127850+ 


0537 

5879586049+ 

0539 

5 679586049+ 


0547 

8431804353+ 

0548 

5879586049+ 0549 

1175917250- 


fcd 

H 

-o 
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TABUS IV, - INPUT TO NA IN OPERATING DECK 



1 |4« 900002 DIOO* 

| 99 090000 OOOO 

1 too *00000 00394 
10?5 100000 009 !♦ 

0307 12*011 Ti90^ 

0307 *02722 *«*♦ 

0937 3079*0 W4?t 


0299 OOOOOO 0<M»4 



000900 19994 

M17U 19«4 
091934 1931* 

491954 19514 
69199 * 19914 
691994 19314 

691954 1*51+ 

*91*4* 1*95* 
* 9199 * 1993 * 


900000 0017* 
OOOOOO 009 *♦ 
OOOOOO 000*4 
009000 0*504 
OOOOOO 0*9 1* 
OOOOOO 0630 
OOOOOO Oill* 
900090 07304 
OOOOOO 073J4 


2*0000 iOOO* 

26 00C 0 0000* 

2*0090 6000* 

2*0009 6000* 
2*0009 60004 
2*0009 6000*- 
2*0000 #0004 


63*031 11*34 
69*031 11*34 
69*031 11*34 
69*031 11*34 
*9*031 11*34 
69*091 11*34 
69*031 11*3* 

DO 1 2 90000 

*5*091 1191* 
63*051 11*14 
*3*051 n*3* 
63*051 11*54 
63*051 11*1* 
63*051 11*14 
63*091 11*34 
63*031 11*34 

OOl] ooooo 

63*991 U*3* 

63*031 11*3* 

65*031 11*34 
65*031 11*3- 
69*031 11**4 
69*031 11*3* 



659031 11934 
65*011 U*l4 

65*031 11*34 

65*051 1193* 
659051 11*3* 
69*051 11*3* 

009* a do oo c 

63*031 11*34 
6 99 o 3 J 11934 
699031 11*34 
65*031 11*34 

*5*031 11*34 
69*031 11*34 



63*051 11*34 
65*051 11*34 
6590JI 11*34 
69*051 11934 
63*051 11*3* 
639031 11*34 
63*931 11*34 

699051 11*34 

COO*' 00009 

63*031 11*34 
63*0*1 11*34 
699031 11*34 
639091 11*34 
639031 11*34 
63*031 11*34 
63*o3l 11*34 
69*091 11*14 
699031 11*34 


00176*. 03004 
009664 05004 
006166 03004 
063066 05004 
065164 0500* 
065066 0500* 
069164 0900* 
075066 0500* 

♦460000 0094 

001736 044C* 
005436 0440* 
006136 0440* 

063036 0440* 

075016 04404 
073136 06404 

4300000 0034 

OC37 32 03*0- 
005432 0360* 
OOH17 0360* 
Q63012 0360* 

OT3D32 03604 
01513? 03604 

♦32000C 0014 

003726 0320 
003426 03234 

006126 03204 
049026 03204 

063026 03204 
063126 03204 
073026 0320+ 
073126 03204 

♦260000 0094 
003721 02604 

003421 0260* 
006121 0260* 
069021 0260* 
045171 0260* 
063071 0260* 
069121 02604 
073071 02604 
079121 02604 

♦210000 0096 

003417 02104 
006117 02104 
043011 02104 
043111 02104 
063017 07104 
063 I 1 y 02104 
073011 0210* 
0731 17 021 C * 

3 4170000 0034 

003713 OHO* 
003*13 01704 
006113 017Q4 
049013 01704 
045113 017C4 
063013 011C4 
063113 01704 
073011 01704 
079111 01704 


24*6*6 63914 
7*5461 *3314 
746166 02314 
431409 3*314 

♦500000 0054 
2 4 9 96 ] 3691* 

644906 *05 i ♦ 
450362 0*914 
4499*7 I191+ 
49*543 999 1 ♦ 
47*013 86914 

♦440000 0094 

73007? 31314 
25 176* 6*9 1 ♦ 
249606 45314 
401315 6431* 



290665 16914 
199046 0991* 
901043 9191* 
424907 0931* 

411021 51314 
403126 41314 

♦370000 0094 





341*76 6751 * 


♦260000 0054 

7501*3 90914 
751*17 99314 
53641? 13514 
496535 51514 
397*27 0031* 

969033 1631 • 


75002? 0431* 
291*14 6931 * 
347094 67914 
456133 07914 
17*106 00914 
3*7621 11314 

4104*9 0051* 
537600 17314 


0006 OOOOO 0 4130000 009* 4170000 003* 


0399 ■5T162 6*304 

1077 204137 1037-4 1070 4062*4 20524 


036* 1IT391 7190- 


OOOOOO 00014 04 0 ojJatp* 
OOOOOO 00114 04 0 03447" 

OOOOOO 00074 04 0 450**. 
OOOOOO 02214 0* 0 431 MOi 
OOOOOO 00174 fl* 0 630HOL 
OOOOOO 11214 0* 0 69l*OL 
OOOOOO 00724 04 0 790*01. 
OOOOOO 21014 04 0 m not 


95**00 6044- J709 6111414 
303*27 1046- 1*19 117943* 
3*6633 1*46- 2977 *1*2*9* 
1629*6 7167* 1*0* 731063* 
134790 *?*7- *767 67*049* 
396671 7066- 2**7 47026J4 
1762** 4946- 2213 0024*34 
139713 3147- 9C11 6540*34 
737996 2046- *6*1 *2*441* 



4101 
02 
O t Ml 


451716 1417* *29467 69954 
110631 71394 373745 39934 
170032 6719- 30*350 44994 
696303 6339* 376011 67354 
92*231 6619* ? 1 0 7 2C 999*4 
2301*9 1299- 790202 7133- 
17*100 *99*- 100166 9 1 9 3 * 
92707? 0619* ?9074* ?09*- 
*17200 2719- 206141 4*594 



1063 9660**4 
1*71 01074*4 
1091 1932434 
2*99 1*52414 


70*190 1*17- 
*04116 301*4 
12612* *190“ 
100106 01*0- 
139*51 0640- 
*11*14 639*- 
20810? 711*- 
130609 0440* 


175127 mi- 

100690 09354 


607142 *0434 09*0 1590*0- 
1*6700 40*04 2071 007141- 
*11676 6049- 1763 1700*1- 
2*7113 6247- 2172 4014**4 
203714 6?4 7- 24*1 13674*4 
713301 50*0- 6506 102641* 
507792 30*6- *706 5005*14 
100*01 61*7- 1911 700*4*4 
170307 01*7- 10*3 73004*4 


769**3 60194 570623 96934 

2701*7 60*0- 111719 00934 
11101* 0040- 121197 009*4 
64*661 9119- *1906? 0051- 
900*37 4119- 10917* «9994 
190*11 76*0- 71*556 42914 
116961 06*0- 212716 70994 


0191*2 20*54 1014 7* 1 ?* 3- 

*17161 4*4 ?— 4*90 92094*4 
104019 2347- 1104 07094*4 
012096 10*6- 0510 *400414 
109999 0147- 1600 *516*44 
179700 5147- 1077 9604644 


1111*9 05394 102809 10594 

116471 724(3- 191749 76954 

604320 7740- 18021* I?*** 

111179 01*0- 111029 17954 

?6*?«fl 26*0- 603091 093*4 

705301 66*C- 713905 71934 


*01*97 70*1- 219? 3130194 
110760 *9*64 1796 10?**1- 
615154 00*54 9999 3160*2- 

16*093 70*7- 7160 6119*44 
12*312 94*7- 1656 3900*44 


7990?3 1190 * 47949 * 10934 
501007 9219 * 970600 96954 
29*197 ** 194 1076 *} 10954 
646107 1040 - 116537 96554 
1*6707 60 * 1 - *91240 975*4 

322001 06 * 0 - 11213 ? 005*4 
1*9100 26 * 0 - * 9371 * 9099 * 
010116 9540 - 210415 ? 7 * 5 * 









25*7- 

8047- 



17*2 0965*24 523594 

4?09 7617*2- 102759 

1670 *195*1- 600001 

3100 33916*4 577170 

5009 3 611464 M0738 


102772 64554 
33*029 9769 • 



110207 77*4- 

1*3629 504*4 

916121 1C47- 
171701 3247- 



7555 6710*1- 
26J4 1?01*J- 

1093 3199*9 * 
779* 00 1*4** 
0*72 ? 96 1 4* ♦ 

6-99 9020464 
V?1 371*464 


*0141’ 0^164 

*20066 *5104 
006129 c 4 194 

130396 8 7* t - 


5? 10 *2*1- 
272616 tt„j- 
200^1* 61*1- 




470910 29914 
351757 T5114 
100994 0092“ 
185121 7762- 
532796 0391- 
127071 2791- 


939690 0091“ 
17117* 2197“ 
299190 6051- 
101915 1*91- 


*609*B 1*30- 
*08121 9*914 
5??621 19514 
772713 2031- 

60030* 006(3- 

209096 7191- 


*617*1 9790- 
*0*563 09914 
5*1717 87314 
190*76 0031- 
12*250 4*32- 
196233 0951“ 
192000 DO0O- 


990709 4091“ 
911025 *091- 
109197 5751- 


90819:- 31314 
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TABLE V. - OUTPUT OF MAIN OPERATING 1 ECK 


9005 

6 

EGU I V 

+8571 

RATO 

4286 

ft 

50 

0/F 
+ 15 92 

1118 

51 

PRCNT 
♦ 3857 

FUEL 

8503 

52 

PC 

♦6000 

PSIA 
0000 53 

ENTH 
+ 2380 

CAL/ 

1691 

GM 

54 

1 DENT 
+0857 

FICA 

0208 

TN 

63 

1 

9005 

6 

A sue 

♦ 1240 

F 

1278 

50 

B SUB 
+ 6240 

F 

6390 

49 

C SUB 

F 


D 

SUB 

F 

E SUB 

F 


+ 0857 

0200 

63 

2 

9005 

i 

F SUB 

F 


G SUB 

F 


H SUB 

F 


I 

SUB 

F 

J SUB 

F 


+ 0857 

0208 

63 

3 

9005 

6 

FUEL 
+ 4827 

ENTH 

2269 

HF 

54 

FUEL 
+ 1248 

+VAL 

1278 

VF + 
50 

FUEL 

-VAL 

VF" 







+0857 

0208 

63 

4 

900 5 

6 

A SUB 
♦ 5879 

X 

5860 

49 

B SUB 

X 


C SUB 
+5879 

X 

5860 

49 

D 

SUB 

X 

E SUB 

X 


♦0857 

0208 

63 

5 

9005 

6 

F SUB 

X 


G SUB 

X 


H SUB 

X 


I 

SUB 

X 

J SUB 

X 


+0857 

0208 

63 

6 

9005 

6 

OX 1 D 
+ 0431 

ENTH 

8043 

HX 

53 

OX I D 
+ 5879 

+VAL 

5860 

+ 

vx 

49 

OXIO 

-1175 

-VAL 

9172 

VX" 

50 







♦ 0857 

0208 

63 

7 














IDENT 

FICA 

TN 


CARD 

















NO. 

PRESS RATO 


temp k 

PRESS 

ATM 


ENTH 

CAL/ 

GM 

SPEC 

IMP 

RRRR 




1 

molec wt 



THRST COEF CF 

AREA 

RATO 


MACH 

NO* 


I VAC 



CASE 



2 

CP CAL/ 

GM 

GAMMA 

DLNM/ 

DLNP 

T 

DLNM/ 

OLNT 

P 

ENTRO 

PY 



PC 


3 

PI SUB ] 

! 


PI SUB T 

PI SUB EP 


PI SUB 

C5TR 


C 

STAR 




PE 

4 

CODE 

0 

37 

H 

CODE 

0 

54 

N 









5 

CODE 

0 

61 

0 

CODE 

4 

50 

H2 









6 

CODE 

4 

51 

H20 

CODE 

6 

50 

N2 









7 

CODE 

6 

51 

NO 

CODE 

7 

50 

02 









8 

CODE 

7 

51 

OH 













9 


9005 

6 

♦ 1000 

0000 

51 

♦ 2620 

0975 

54 

♦ 4082 

7418 

52 

+ 2380 

1693 

54 




+ 0857 

0208 

63 

1 

7 

0001 

9005 

6 

+ 1832 

4978 

52 













♦ 0857 

0208 

63 

1 

0 

0002 

9005 

6 

+ 8600 

2537 

50 

+ 1170 

6861 

51 

+ 3918 

7000 

48 

-8967 

4585 

49 

+ 3202 

5166 

51 

+ 0857 

0208 

63 

1 

0 

0003 

9005 

6 




♦ 1130 

7117 

49 










♦0857 

0208 

63 

1 

0 

0004 

9005 

6 

+ 0000 

0000 

37 

+ 1884 

9336 

50 

+ 0000 

0000 

54 

+ 1198 

2934 

46 




+ 0857 

0208 

63 

1 

0 

0005 

9005 

6 

+ 0000 

0000 

61 

♦ 7941 

1497 

48 

♦ 0000 

0004 

50 

♦ 4652 

5476 

51 




+ 0857 

0208 

63 

1 

0 

0006 

9005 

6 

♦ 00 00 

0004 

51 

+ 2661 

5805 

52 

♦ 0000 

0006 

50 

+8986 

4247 

51 




♦ 0857 

0208 

63 

1 

0 

0007 

9005 

6 

+ 0000 

0006 

51 

+ 3950 

4512 

49 

+0000 

0007 

50 

+ 1860 

7803 

49 




♦0857 

0200 

63 

1 

0 

0000 

9005 

6 

♦ 0000 

0007 

51 

♦ 3180 

8095 

50 










+ 0857 

0208 

63 

1 

0 

0009 

9005 

6 

+ 1763 

0118 

51 

♦ 2599 

0325 

54 

+2315 

7770 

52 

+ 2213 

8880 

54 

+ 120? 

8578 

53 

+ 0857 

0? 08 

63 

2 

7 

0001 

9005 

6 

+ 1839 

4694 

52 

♦ 6718 

3421 

50 

+ 1000 

0000 

51 

+ 9999 

9900 

50 

+ 2218 

3977 

53 

♦ 0857 

0?08 

63 

2 

0 

0002 

9005 

6 

♦ 7500 

1 172 

50 

♦ 1184 

4539 

51 

+ 1 066 

4000 

48 

-4600 

4567 

49 

+ 3202 

5172 

51 

♦ 0857 

0208 

63 

2 

0 

0003 

9005 

6 

♦ 3211 

9736 

48 

♦ 6C 76 

4200 

48 




+ 1279 

7000 

48 

+ 5760 

4609 

54 

+ 0857 

0208 

63 

2 

0 

0004 

900 5 

6 

♦ 0000 

0000 

37 

+6129 

6978 

49 

+ 0000 

0000 

54 

+ 1574 

5346 

45 




+ 0857 

0208 

63 

2 

0 

0005 

9 00 5 

6 

+ 0000 

0000 

61 

+ 1289 

9700 

46 

+ 0000 

0004 

50 

+2592 

6825 

51 




+ 0857 

0208 

63 

2 

0 

0006 

900 5 

6 

+0000 

0004 

51 

♦ 1528 

1160 

52 

+ OCOO 

0006 

50 

+5123 

4150 

51 




+ 0857 

0208 

63 

2 

0 

0007 

9005 

6 

+ 0000 

0006 

51 

+ 8652 

1215 

48 

+ 0000 

0007 

50 

+ 3154 

4989 

48 




+ 0857 

0208 

63 

2 

0 

0008 

9005 

6 

+ 0000 

0007 

51 

♦ 8591 

8027 

49 










+ 0857 

0208 

63 

2 

0 

0009 


9005 

6 

+2041 

3710 

52 

+ 1703 

3560 

54 

+ 2000 

0000 

51 

+ 1650 

2977 

54 

+ 2520 

0886 

53 

+ 0857 

0208 

63 

3 

7 

0001 

9005 

6 

♦ 1846 

0004 

52 

+ 1407 

5494 

51 

♦ 3609 

2728 

51 

+ 2542 

3479 

51 

+ ? 8 36 

6442 

53 

+ 0857 

0?08 

63 

3 

0 

0002 

900 5 

6 

♦ 5727 

2366 

50 

+ 1231 

6744 

51 

+ 1 190 

oooo 

46 

-4021 

9322 

47 

+ 3202 

5170 

51 

+ 0857 

0200 

63 

3 

0 

0003 

9005 

6 

+9255 

6857 

47 

-1309 

3700 

48 

-3527 

1000 

48 




+ 5760 

4609 

54 

+ 0857 

o?oe 

63 

3 

0 

0004 

9005 

6 

+ 0000 

0000 

37 

♦ 7135 

4999 

46 

+0000 

0000 

54 

+ 3384 

2841 

39 




+ 0857 

0208 

63 

3 

0 

0005 

90 0 5 

6 

♦ 0000 

0000 

61 

+ 5726 

6914 

42 

+o:oo 

0004 

5C 

♦2221 

9334 

50 




+ 0857 

0208 

63 

3 

0 

0006 

9005 

6 

♦ 0000 

0004 

51 

+ 1333 

2781 

51 

+0000 

0006 

50 

+ 4444 

3360 

50 




+ 0857 

0208 

63 

3 

0 

0007 

900 5 

6 

+ 0000 

0006 

51 

♦ 6396 

0183 

44 

+0000 

0007 

50 

+1556 

5795 

43 




+ C857 

0208 

63 

3 

0 

0008 

9005 

6 

+ 0000 

0007 

5 1 

♦ 2297 

B4 2 1 

46 










+ 0857 

0208 

63 

3 

0 

0009 


9005 

6 

+4082 

742 0 

52 

+ 1491 

6306 

54 

♦1000 

0000 

51 

+ 1531 

2268 

54 

+ 2717 

8889 

53 

+ 0857 

0208 

63 

4 

7 

0001 

900 5 

6 

♦ 1846 

0380 

52 

+ 1518 

0271 

51 

+ 5861 

1205 

51 

+ 2917 

3866 

51 

*2974 

917? 

53 

+ 0857 

0208 

63 

4 

0 

0002 

9005 

6 

+ 5517 

8364 

5 0 

+ 1242 

4039 

51 

+ 1500 

0000 

45 

-6049 

8219 

a 

*•7202 

5166 

51 

+ 0857 

0?08 

63 

4 

0 

0003 

9 c 0 5 

6 

+6930 

0686 

47 

-1< 29 

7700 

48 

-3409 

9000 

43 




•■6760 

4609 

54 

+ 0857 

0208 

67 

4 

0 

0004 

9 1,0 5 

6 

+ 0000 

COO* 

37 

+ 5278 

4766 

45 

+ 0000 

oooo 

54 

+ 2259 

3682 

37 




+ 0857 

0208 

63 

4 

0 

0005 

9'’05 

6 

♦ 0000 

000'’' 

61 

+ 3627 

2626 

40 

+ 0000 

0004 

50 

+ 1111 

C85 9 

50 




+ 0857 

0208 

67 

4 

0 

0006 

9005 

6 

+0000 

C004 

51 

+6666 

6369 

5C 

+ 0000 

C006 

5C 

+ 2222 

2154 

50 




+ 0857 

C2oe 

63 

4 

0 

000 7 

9 00 5 

6 

+0000 

0006 

51 

♦ 1479 

0822 

43 

+0C00 

0007 

50 

+ 1023 

7844 

41 




+ 0857 

0208 

63 

4 

0 

0008 

9005 

6 

♦ 0000 

0007 

51 

+9075 

8745 

44 










+ 0857 

0208 

63 

4 

0 

0009 


9 ,0 5 

6 

+ 6804 

5699 

52 

+ 1346 

1969 

54 

+6000 

0001 

50 

+ 1453 

1962 

54 

•■2840 

0511 

53 

♦ 0857 

0208 

63 

5 

7 

0001 

9. ,06 

6 

♦ 1846 

0433 

52 

+ 1536 

25B6 

51 

+ 8449 

4012 

51 

+ 3195 

2560 

51 

+ 3062 

3705 

53 

+ 0857 

0708 

63 

5 

0 

0002 

9. 05 

6 

♦ 5361 

30e *' 

5C 

+ 1251 

2292 

51 

+ 3000 

oooo 

44 

-1032 

3995 

46 

+ 3202 

5168 

51 

+ 0857 

0208 

63 

5 

0 

0003 

>-05 

6 

♦ 5786 

3339 

47 

-1431 

9800 

48 

-3340 

6000 

48 




+ 5760 

4609 

54 

♦0857 

0208 

63 

5 

0 

0004 

9- 0 5 

6 

+ 0000 

oooo 

37 

+ 5962 

6786 

4 4 

+0000 

oooo 

54 

+2889 

535 3 

35 




+ 0857 

0?C8 

63 

5 

0 

0005 

- 0 5 

6 

♦ oooo 

oooo 

61 

+ 4P0S 

4378 

35 

♦oooo 

0004 

50 

+6666 

6369 

49 




+ 0857 

0208 

63 

5 

0 

0006 

9.05 

6 

+ 0000 

0004 

51 

+ 36 99 

9971 

5C 

+ 000C 

0006 

r >0 

+ 177-1 

3 32 7 

50 




+ 0857 

0208 

63 

5 

0 

0007 

900 5 

6 

+ 0000 

OOC 6 

51 

+ 6167 

0896 

41 

+ 0000 

0007 

6 0 

+ 1403 

8250 

39 




+ 0857 

0208 

63 

5 

0 

0008 

9005 

6 

♦ oooo 

0007 

51 

+ 5969 

0563 

43 










+ 0857 

0208 

63 

5 

0 

0009 
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Condensed phases 
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i 


Packed vector 
loading routine 


Input data routine 


Assign the pressure 


Load thermal data for current 
temperature estimate 


Any product left 
to process? 


Unpacking routine 


Thermal routine 


Vector multiplication 
routine 


Matrix cleanup 
routine 


Has iteration 
converged ? 


<No)J 


Were correct thermal 
data used? 




Were correct condensed 
products used? 


Calculate performance 
parameters 




Solve for correction 
1 variables 



Apply corrections 
to estimates 


Change reaction products 


Punch answers 


Stop 


<2S>{ 


Any more pressure ratios? 


Figure 5. - Flow chart for Main Calculating Program. 
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"CHEK" 



Start equilibrium 
calculation at "BEGIN" 


"BEGIN" 

1 


Calculate T 

from In T 



Assign first pressure 




Go to thermal data routine "TDATA" 


Figure 7. - Flow chart for input data routine. 
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"TDATA" 



Figure 8. - Flow chart for loac thermal data. 
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"UNPAK" 




Figure 9. - Flow chart for unpacking routine. 

















HO 


THERM 



Figure 10. 


- Flow chart for thermal routine. 
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"MULT" 



Go to unpacking 
routine M UP013 M 


Figure 11. 


Flow chart for vector multiplication routine. 



















148 


"MATRX" 



Figure 12. - Flow chart for matrix completion routine. 
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Figure 13. - Flow chart for matrix solution routine. 
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Figure 14. - Flow chart for correction routine. 
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Figure 15. - Flow chart for performance-parameter routine. 
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Figure 18. - Solution vector control and convergence; 

4 elements, 17 gaseous products, 2 condensed products. 
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Figure 19. 


- Flow chart for frozen-composition routine. 
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Figure 22. - Flow chart for M )L (pseudo-operation). 
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Figure 25 . - Flow chart for F and X ( pseud 0-1 ip t rat. ions ) . 





















Set index 
A to 299 


Set index 
A to 329 


PAR 1 


Is number more 
than 10 digits? 


Generate store 
command for the 
number 




Store the 
region L, 

number in 
D, H, or E 


Go to punch 


Figure 24. - Flow chart for percent fuel or oxidant and enthalpy of 
fuel or oxidant (pseudo-operations). 
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number, specific he t, isentropic exponent, enthalpy, number, specific heat, isentropic exponent, enthalpy, 

entropy, and several thermodynamic first derivatives. entropy, and several thermodynamic first derivatives. 
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